Class WordApplication
inherits OLEObject
    dim ActiveDocument as WordDocument
    dim ActivePrinter as string
    dim ActiveWindow as WordWindow
    dim AddIns as WordAddIns
    dim AnswerWizard as OLEObject
    dim Application as WordApplication
    dim Assistant as OLEObject
    dim AutoCaptions as WordAutoCaptions
    dim AutoCorrect as WordAutoCorrect
    dim BackgroundPrintingStatus as integer
    dim BackgroundSavingStatus as integer
    dim BrowseExtraFileTypes as string
    dim Browser as WordBrowser
    dim Build as string
    dim CapsLock as boolean
    dim Caption as string
    dim CaptionLabels as WordCaptionLabels
    dim CheckLanguage as boolean
    dim COMAddIns as OLEObject
    dim CommandBars as variant
    dim Creator as integer
    dim CustomDictionaries as WordDictionaries
    dim CustomizationContext as OLEObject
    dim DefaultSaveFormat as string
    dim DefaultTableSeparator as string
    dim Dialogs as WordDialogs
    dim DisplayAlerts as integer
    dim DisplayAutoCompleteTips as boolean
    dim DisplayRecentFiles as boolean
    dim DisplayScreenTips as boolean
    dim DisplayScrollBars as boolean
    dim DisplayStatusBar as boolean
    dim Documents as WordDocuments
    dim Dummy1 as boolean
    dim EmailOptions as WordEmailOptions
    dim EnableCancelKey as integer
    dim FeatureInstall as integer
    dim FileConverters as WordFileConverters
    dim FileSearch as OLEObject
    dim FocusInMailHeader as boolean
    dim FontNames as WordFontNames
    dim HangulHanjaDictionaries as WordHangulHanjaConversionDictionaries
    dim Height as integer
    dim KeyBindings as WordKeyBindings
    dim LandscapeFontNames as WordFontNames
    dim Language as integer
    dim Languages as WordLanguages
    dim LanguageSettings as OLEObject
    dim Left as integer
    dim ListGalleries as WordListGalleries
    dim MacroContainer as OLEObject
    dim MailingLabel as WordMailingLabel
    dim MailMessage as WordMailMessage
    dim MailSystem as integer
    dim MAPIAvailable as boolean
    dim MathCoprocessorAvailable as boolean
    dim MouseAvailable as boolean
    dim Name as string
    dim NormalTemplate as WordTemplate
    dim NumLock as boolean
    dim Options as WordOptions
    dim Parent as OLEObject
    dim Path as string
    dim PathSeparator as string
    dim PortraitFontNames as WordFontNames
    dim PrintPreview as boolean
    dim RecentFiles as WordRecentFiles
    dim ScreenUpdating as boolean
    dim Selection as WordSelection
    dim ShowVisualBasicEditor as boolean
    dim SpecialMode as boolean
    dim StartupPath as string
    dim StatusBar as string
    dim System as WordSystem
    dim Tasks as WordTasks
    dim Templates as WordTemplates
    dim Top as integer
    dim UsableHeight as integer
    dim UsableWidth as integer
    dim UserAddress as string
    dim UserControl as boolean
    dim UserInitials as string
    dim UserName as string
    dim VBE as VBE
    dim Version as string
    dim Visible as boolean
    dim Width as integer
    dim Windows as WordWindows
    dim WindowState as integer
    dim WordBasic as OLEObject
    Sub Activate()
    Sub AddAddress(TagID_Param as variant, Value_Param as variant)
    Sub AutomaticChange()
    Function BuildKeyCode(Arg1_Param as integer, Arg2_Param as variant, Arg3_Param as variant, Arg4_Param as variant) as integer
    Function CentimetersToPoints(Centimeters_Param as single) as single
    Sub ChangeFileOpenDirectory(Path_Param as string)
    Function CheckGrammar(String_Param as string) as boolean
    Function CheckSpelling(Word_Param as string, CustomDictionary_Param as variant, IgnoreUppercase_Param as variant, MainDictionary_Param as variant, CustomDictionary2_Param as variant, CustomDictionary3_Param as variant, CustomDictionary4_Param as variant, CustomDictionary5_Param as variant, CustomDictionary6_Param as variant, CustomDictionary7_Param as variant, CustomDictionary8_Param as variant, CustomDictionary9_Param as variant, CustomDictionary10_Param as variant) as boolean
    Function CleanString(String_Param as string) as string
    Sub DDEExecute(Channel_Param as integer, Command_Param as string)
    Function DDEInitiate(App_Param as string, Topic_Param as string) as integer
    Sub DDEPoke(Channel_Param as integer, Item_Param as string, Data_Param as string)
    Function DDERequest(Channel_Param as integer, Item_Param as string) as string
    Sub DDETerminate(Channel_Param as integer)
    Sub DDETerminateAll()
    Function DefaultWebOptions() as WordDefaultWebOptions
    Sub DiscussionSupport(Range_Param as variant, cid_Param as variant, piCSE_Param as variant)
    Function FindKey(KeyCode_Param as integer, KeyCode2_Param as variant) as WordKeyBinding
    Function GetAddress(Name_Param as variant, AddressProperties_Param as variant, UseAutoText_Param as variant, DisplaySelectDialog_Param as variant, SelectDialog_Param as variant, CheckNamesDialog_Param as variant, RecentAddressesChoice_Param as variant, UpdateRecentAddresses_Param as variant) as string
    Function GetDefaultTheme(DocumentType_Param as integer) as string
    Function GetSpellingSuggestions(Word_Param as string, CustomDictionary_Param as variant, IgnoreUppercase_Param as variant, MainDictionary_Param as variant, SuggestionMode_Param as variant, CustomDictionary2_Param as variant, CustomDictionary3_Param as variant, CustomDictionary4_Param as variant, CustomDictionary5_Param as variant, CustomDictionary6_Param as variant, CustomDictionary7_Param as variant, CustomDictionary8_Param as variant, CustomDictionary9_Param as variant, CustomDictionary10_Param as variant) as WordSpellingSuggestions
    Sub GoBack()
    Sub GoForward()
    Sub Help(HelpType_Param as variant)
    Sub HelpTool()
    Function InchesToPoints(Inches_Param as single) as single
    Function International(Index_Param as integer) as variant
    Function IsObjectValid(Object_Param as OLEObject) as boolean
    Function Keyboard(LangId_Param as integer) as integer
    Sub KeyboardBidi()
    Sub KeyboardLatin()
    Function KeysBoundTo(KeyCategory_Param as integer, Command_Param as string, CommandParameter_Param as variant) as WordKeysBoundTo
    Function KeyString(KeyCode_Param as integer, KeyCode2_Param as variant) as string
    Function LinesToPoints(Lines_Param as single) as single
    Sub ListCommands(ListAllCommands_Param as boolean)
    Sub LookupNameProperties(Name_Param as string)
    Function MillimetersToPoints(Millimeters_Param as single) as single
    Function MountVolume(Zone_Param as string, Server_Param as string, Volume_Param as string, User_Param as variant, UserPassword_Param as variant, VolumePassword_Param as variant) as integer
    Sub Move(Left_Param as integer, Top_Param as integer)
    Function NewWindow() as WordWindow
    Sub NextLetter()
    Sub OnTime(When_Param as variant, Name_Param as string, Tolerance_Param as variant)
    Sub OrganizerCopy(Source_Param as string, Destination_Param as string, Name_Param as string, Object_Param as integer)
    Sub OrganizerDelete(Source_Param as string, Name_Param as string, Object_Param as integer)
    Sub OrganizerRename(Source_Param as string, Name_Param as string, NewName_Param as string, Object_Param as integer)
    Function PicasToPoints(Picas_Param as single) as single
    Function PixelsToPoints(Pixels_Param as single, fVertical_Param as variant) as single
    Function PointsToCentimeters(Points_Param as single) as single
    Function PointsToInches(Points_Param as single) as single
    Function PointsToLines(Points_Param as single) as single
    Function PointsToMillimeters(Points_Param as single) as single
    Function PointsToPicas(Points_Param as single) as single
    Function PointsToPixels(Points_Param as single, fVertical_Param as variant) as single
    Sub PrintOut(Background_Param as variant, Append_Param as variant, Range_Param as variant, OutputFileName_Param as variant, From_Param as variant, To_Param as variant, Item_Param as variant, Copies_Param as variant, Pages_Param as variant, PageType_Param as variant, PrintToFile_Param as variant, Collate_Param as variant, FileName_Param as variant, ActivePrinterMacGX_Param as variant, ManualDuplexPrint_Param as variant, PrintZoomColumn_Param as variant, PrintZoomRow_Param as variant, PrintZoomPaperWidth_Param as variant, PrintZoomPaperHeight_Param as variant)
    Sub PrintOutOld(Background_Param as variant, Append_Param as variant, Range_Param as variant, OutputFileName_Param as variant, From_Param as variant, To_Param as variant, Item_Param as variant, Copies_Param as variant, Pages_Param as variant, PageType_Param as variant, PrintToFile_Param as variant, Collate_Param as variant, FileName_Param as variant, ActivePrinterMacGX_Param as variant, ManualDuplexPrint_Param as variant)
    Function ProductCode() as string
    Sub Quit(SaveChanges_Param as variant, OriginalFormat_Param as variant, RouteDocument_Param as variant)
    Function Repeat(Times_Param as variant) as boolean
    Sub ResetIgnoreAll()
    Sub Resize(Width_Param as integer, Height_Param as integer)
    Function Run(MacroName_Param as string, varg1_Param as variant, varg2_Param as variant, varg3_Param as variant, varg4_Param as variant, varg5_Param as variant, varg6_Param as variant, varg7_Param as variant, varg8_Param as variant, varg9_Param as variant, varg10_Param as variant, varg11_Param as variant, varg12_Param as variant, varg13_Param as variant, varg14_Param as variant, varg15_Param as variant, varg16_Param as variant, varg17_Param as variant, varg18_Param as variant, varg19_Param as variant, varg20_Param as variant, varg21_Param as variant, varg22_Param as variant, varg23_Param as variant, varg24_Param as variant, varg25_Param as variant, varg26_Param as variant, varg27_Param as variant, varg28_Param as variant, varg29_Param as variant, varg30_Param as variant) as variant
    Sub RunOld(MacroName_Param as string)
    Sub ScreenRefresh()
    Sub SendFax()
    Sub SetDefaultTheme(Name_Param as string, DocumentType_Param as integer)
    Sub ShowClipboard()
    Sub ShowMe()
    Sub SubstituteFont(UnavailableFont_Param as string, SubstituteFont_Param as string)
    Function SynonymInfo(Word_Param as string, LanguageID_Param as variant) as WordSynonymInfo
    Sub ToggleKeyboard()
    Event EventTriggered(eventName As String, parameters() As Variant)
    Event DocumentChange()
    Event Quit()
    EventImp EventTriggered(eventName As String, parameters() As Variant) As Variant
        Select Case eventName
        Case "DocumentChange"
          DocumentChange
        Case "Quit"
          Quit
        Else
          EventTriggered( eventName, parameters )
        End Select
    End EventImp
End Class

Class WordGlobal
inherits OLEObject
    dim ActiveDocument as WordDocument
    dim ActivePrinter as string
    dim ActiveWindow as WordWindow
    dim AddIns as WordAddIns
    dim AnswerWizard as OLEObject
    dim Application as WordApplication
    dim Assistant as OLEObject
    dim AutoCaptions as WordAutoCaptions
    dim AutoCorrect as WordAutoCorrect
    dim CaptionLabels as WordCaptionLabels
    dim CommandBars as variant
    dim Creator as integer
    dim CustomDictionaries as WordDictionaries
    dim CustomizationContext as OLEObject
    dim Dialogs as WordDialogs
    dim Documents as WordDocuments
    dim FileConverters as WordFileConverters
    dim FontNames as WordFontNames
    dim HangulHanjaDictionaries as WordHangulHanjaConversionDictionaries
    dim KeyBindings as WordKeyBindings
    dim LandscapeFontNames as WordFontNames
    dim Languages as WordLanguages
    dim LanguageSettings as OLEObject
    dim ListGalleries as WordListGalleries
    dim MacroContainer as OLEObject
    dim Name as string
    dim NormalTemplate as WordTemplate
    dim Options as WordOptions
    dim Parent as OLEObject
    dim PortraitFontNames as WordFontNames
    dim PrintPreview as boolean
    dim RecentFiles as WordRecentFiles
    dim Selection as WordSelection
    dim ShowVisualBasicEditor as boolean
    dim StatusBar as string
    dim System as WordSystem
    dim Tasks as WordTasks
    dim Templates as WordTemplates
    dim VBE as VBE
    dim Windows as WordWindows
    dim WordBasic as OLEObject
    Function BuildKeyCode(Arg1_Param as integer, Arg2_Param as variant, Arg3_Param as variant, Arg4_Param as variant) as integer
    Function CentimetersToPoints(Centimeters_Param as single) as single
    Sub ChangeFileOpenDirectory(Path_Param as string)
    Function CheckSpelling(Word_Param as string, CustomDictionary_Param as variant, IgnoreUppercase_Param as variant, MainDictionary_Param as variant, CustomDictionary2_Param as variant, CustomDictionary3_Param as variant, CustomDictionary4_Param as variant, CustomDictionary5_Param as variant, CustomDictionary6_Param as variant, CustomDictionary7_Param as variant, CustomDictionary8_Param as variant, CustomDictionary9_Param as variant, CustomDictionary10_Param as variant) as boolean
    Function CleanString(String_Param as string) as string
    Sub DDEExecute(Channel_Param as integer, Command_Param as string)
    Function DDEInitiate(App_Param as string, Topic_Param as string) as integer
    Sub DDEPoke(Channel_Param as integer, Item_Param as string, Data_Param as string)
    Function DDERequest(Channel_Param as integer, Item_Param as string) as string
    Sub DDETerminate(Channel_Param as integer)
    Sub DDETerminateAll()
    Function FindKey(KeyCode_Param as integer, KeyCode2_Param as variant) as WordKeyBinding
    Function GetSpellingSuggestions(Word_Param as string, CustomDictionary_Param as variant, IgnoreUppercase_Param as variant, MainDictionary_Param as variant, SuggestionMode_Param as variant, CustomDictionary2_Param as variant, CustomDictionary3_Param as variant, CustomDictionary4_Param as variant, CustomDictionary5_Param as variant, CustomDictionary6_Param as variant, CustomDictionary7_Param as variant, CustomDictionary8_Param as variant, CustomDictionary9_Param as variant, CustomDictionary10_Param as variant) as WordSpellingSuggestions
    Sub Help(HelpType_Param as variant)
    Function InchesToPoints(Inches_Param as single) as single
    Function IsObjectValid(Object_Param as OLEObject) as boolean
    Function KeysBoundTo(KeyCategory_Param as integer, Command_Param as string, CommandParameter_Param as variant) as WordKeysBoundTo
    Function KeyString(KeyCode_Param as integer, KeyCode2_Param as variant) as string
    Function LinesToPoints(Lines_Param as single) as single
    Function MillimetersToPoints(Millimeters_Param as single) as single
    Function NewWindow() as WordWindow
    Function PicasToPoints(Picas_Param as single) as single
    Function PixelsToPoints(Pixels_Param as single, fVertical_Param as variant) as single
    Function PointsToCentimeters(Points_Param as single) as single
    Function PointsToInches(Points_Param as single) as single
    Function PointsToLines(Points_Param as single) as single
    Function PointsToMillimeters(Points_Param as single) as single
    Function PointsToPicas(Points_Param as single) as single
    Function PointsToPixels(Points_Param as single, fVertical_Param as variant) as single
    Function Repeat(Times_Param as variant) as boolean
    Function SynonymInfo(Word_Param as string, LanguageID_Param as variant) as WordSynonymInfo
End Class

Class WordFontNames
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(Index_Param as integer) as string
End Class

Class WordLanguages
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(Index_Param as variant) as WordLanguage
End Class

Class WordLanguage
inherits OLEObject
    dim ActiveGrammarDictionary as WordDictionary
    dim ActiveHyphenationDictionary as WordDictionary
    dim ActiveSpellingDictionary as WordDictionary
    dim ActiveThesaurusDictionary as WordDictionary
    dim Application as WordApplication
    dim Creator as integer
    dim DefaultWritingStyle as string
    dim ID as integer
    dim Name as string
    dim NameLocal as string
    dim Parent as OLEObject
    dim SpellingDictionaryType as integer
    dim WritingStyleList as variant
End Class

Class WordDocuments
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Template_Param as variant, NewTemplate_Param as variant, DocumentType_Param as variant, Visible_Param as variant) as WordDocument
    Function AddOld(Template_Param as variant, NewTemplate_Param as variant) as WordDocument
    Sub Close(SaveChanges_Param as variant, OriginalFormat_Param as variant, RouteDocument_Param as variant)
    Function Item(Index_Param as variant) as WordDocument
    Function Open(FileName_Param as variant, ConfirmConversions_Param as variant, ReadOnly_Param as variant, AddToRecentFiles_Param as variant, PasswordDocument_Param as variant, PasswordTemplate_Param as variant, Revert_Param as variant, WritePasswordDocument_Param as variant, WritePasswordTemplate_Param as variant, Format_Param as variant, Encoding_Param as variant, Visible_Param as variant) as WordDocument
    Function OpenOld(FileName_Param as variant, ConfirmConversions_Param as variant, ReadOnly_Param as variant, AddToRecentFiles_Param as variant, PasswordDocument_Param as variant, PasswordTemplate_Param as variant, Revert_Param as variant, WritePasswordDocument_Param as variant, WritePasswordTemplate_Param as variant, Format_Param as variant) as WordDocument
    Sub Save(NoPrompt_Param as variant, OriginalFormat_Param as variant)
End Class

Class WordDocument
inherits OLEObject
    dim ActiveTheme as string
    dim ActiveThemeDisplayName as string
    dim ActiveWindow as WordWindow
    dim Application as WordApplication
    dim AttachedTemplate as variant
    dim AutoHyphenation as boolean
    dim Background as WordShape
    dim Bookmarks as WordBookmarks
    dim BuiltInDocumentProperties as OLEObject
    dim Characters as WordCharacters
    dim ClickAndTypeParagraphStyle as variant
    dim CodeName as string
    dim CommandBars as variant
    dim Comments as WordComments
    dim ConsecutiveHyphensLimit as integer
    dim Container as OLEObject
    dim Content as WordRange
    dim Creator as integer
    dim CustomDocumentProperties as OLEObject
    dim DefaultTabStop as single
    dim Email as WordEmail
    dim EmbedTrueTypeFonts as boolean
    dim Endnotes as WordEndnotes
    dim Envelope as WordEnvelope
    dim FarEastLineBreakLanguage as integer
    dim FarEastLineBreakLevel as integer
    dim Fields as WordFields
    dim Footnotes as WordFootnotes
    dim FormFields as WordFormFields
    dim FormsDesign as boolean
    dim Frames as WordFrames
    dim Frameset as WordFrameset
    dim FullName as string
    dim GrammarChecked as boolean
    dim GrammaticalErrors as WordProofreadingErrors
    dim GridDistanceHorizontal as single
    dim GridDistanceVertical as single
    dim GridOriginFromMargin as boolean
    dim GridOriginHorizontal as single
    dim GridOriginVertical as single
    dim GridSpaceBetweenHorizontalLines as integer
    dim GridSpaceBetweenVerticalLines as integer
    dim HasMailer as boolean
    dim HasPassword as boolean
    dim HasRoutingSlip as boolean
    dim HTMLProject as OLEObject
    dim Hyperlinks as WordHyperlinks
    dim HyphenateCaps as boolean
    dim HyphenationZone as integer
    dim Indexes as WordIndexes
    dim InlineShapes as WordInlineShapes
    dim IsMasterDocument as boolean
    dim IsSubdocument as boolean
    dim JustificationMode as integer
    dim KerningByAlgorithm as boolean
    dim Kind as integer
    dim LanguageDetected as boolean
    dim ListParagraphs as WordListParagraphs
    dim Lists as WordLists
    dim ListTemplates as WordListTemplates
    dim Mailer as WordMailer
    dim MailMerge as WordMailMerge
    dim Name as string
    dim NoLineBreakAfter as string
    dim NoLineBreakBefore as string
    dim OpenEncoding as integer
    dim OptimizeForWord97 as boolean
    dim PageSetup as WordPageSetup
    dim Paragraphs as WordParagraphs
    dim Parent as OLEObject
    dim Password as string
    dim Path as string
    dim PrintFormsData as boolean
    dim PrintFractionalWidths as boolean
    dim PrintPostScriptOverText as boolean
    dim PrintRevisions as boolean
    dim ProtectionType as integer
    dim ReadabilityStatistics as WordReadabilityStatistics
    dim ReadOnly as boolean
    dim ReadOnlyRecommended as boolean
    dim Revisions as WordRevisions
    dim Routed as boolean
    dim RoutingSlip as WordRoutingSlip
    dim Saved as boolean
    dim SaveEncoding as integer
    dim SaveFormat as integer
    dim SaveFormsData as boolean
    dim SaveSubsetFonts as boolean
    dim Scripts as OLEObject
    dim Sections as WordSections
    dim Sentences as WordSentences
    dim Shapes as WordShapes
    dim ShowGrammaticalErrors as boolean
    dim ShowRevisions as boolean
    dim ShowSpellingErrors as boolean
    dim ShowSummary as boolean
    dim SnapToGrid as boolean
    dim SnapToShapes as boolean
    dim SpellingChecked as boolean
    dim SpellingErrors as WordProofreadingErrors
    dim StoryRanges as WordStoryRanges
    dim Styles as WordStyles
    dim Subdocuments as WordSubdocuments
    dim SummaryLength as integer
    dim SummaryViewMode as integer
    dim Tables as WordTables
    dim TablesOfAuthorities as WordTablesOfAuthorities
    dim TablesOfAuthoritiesCategories as WordTablesOfAuthoritiesCategories
    dim TablesOfContents as WordTablesOfContents
    dim TablesOfFigures as WordTablesOfFigures
    dim TrackRevisions as boolean
    dim Type as integer
    dim UpdateStylesOnOpen as boolean
    dim UserControl as boolean
    dim Variables as WordVariables
    dim VBASigned as boolean
    dim VBProject as variant
    dim Versions as WordVersions
    dim WebOptions as WordWebOptions
    dim Windows as WordWindows
    dim Words as WordWords
    dim WritePassword as string
    dim WriteReserved as boolean
    dim _CodeName as string
    Sub AcceptAllRevisions()
    Sub Activate()
    Function ActiveWritingStyle(LanguageID_Param as variant) as string
    Sub AddToFavorites()
    Sub ApplyTheme(Name_Param as string)
    Sub AutoFormat()
    Function AutoSummarize(Length_Param as variant, Mode_Param as variant, UpdateProperties_Param as variant) as WordRange
    Sub CheckConsistency()
    Sub CheckGrammar()
    Sub CheckSpelling(CustomDictionary_Param as variant, IgnoreUppercase_Param as variant, AlwaysSuggest_Param as variant, CustomDictionary2_Param as variant, CustomDictionary3_Param as variant, CustomDictionary4_Param as variant, CustomDictionary5_Param as variant, CustomDictionary6_Param as variant, CustomDictionary7_Param as variant, CustomDictionary8_Param as variant, CustomDictionary9_Param as variant, CustomDictionary10_Param as variant)
    Sub Close(SaveChanges_Param as variant, OriginalFormat_Param as variant, RouteDocument_Param as variant)
    Sub ClosePrintPreview()
    Sub Compare(Name_Param as string)
    Function Compatibility(Type_Param as integer) as boolean
    Function ComputeStatistics(Statistic_Param as integer, IncludeFootnotesAndEndnotes_Param as variant) as integer
    Sub ConvertNumbersToText(NumberType_Param as variant)
    Sub CopyStylesFromTemplate(Template_Param as string)
    Function CountNumberedItems(NumberType_Param as variant, Level_Param as variant) as integer
    Function CreateLetterContent(DateFormat_Param as string, IncludeHeaderFooter_Param as boolean, PageDesign_Param as string, LetterStyle_Param as integer, Letterhead_Param as boolean, LetterheadLocation_Param as integer, LetterheadSize_Param as single, RecipientName_Param as string, RecipientAddress_Param as string, Salutation_Param as string, SalutationType_Param as integer, RecipientReference_Param as string, MailingInstructions_Param as string, AttentionLine_Param as string, Subject_Param as string, CCList_Param as string, ReturnAddress_Param as string, SenderName_Param as string, Closing_Param as string, SenderCompany_Param as string, SenderJobTitle_Param as string, SenderInitials_Param as string, EnclosureNumber_Param as integer, InfoBlock_Param as variant, RecipientCode_Param as variant, RecipientGender_Param as variant, ReturnAddressShortForm_Param as variant, SenderCity_Param as variant, SenderCode_Param as variant, SenderGender_Param as variant, SenderReference_Param as variant) as WordLetterContent
    Sub DataForm()
    Sub DetectLanguage()
    Sub EditionOptions(Type_Param as integer, Option_Param as integer, Name_Param as string, Format_Param as variant)
    Sub FitToPages()
    Sub FollowHyperlink(Address_Param as variant, SubAddress_Param as variant, NewWindow_Param as variant, AddHistory_Param as variant, ExtraInfo_Param as variant, Method_Param as variant, HeaderInfo_Param as variant)
    Sub ForwardMailer()
    Function GetCrossReferenceItems(ReferenceType_Param as variant) as variant
    Function GetLetterContent() as WordLetterContent
    Function GoTo_(What_Param as variant, Which_Param as variant, Count_Param as variant, Name_Param as variant) as WordRange
    Sub MakeCompatibilityDefault()
    Sub ManualHyphenation()
    Sub Merge(FileName_Param as string)
    Sub Post()
    Sub PresentIt()
    Sub PrintOut(Background_Param as variant, Append_Param as variant, Range_Param as variant, OutputFileName_Param as variant, From_Param as variant, To_Param as variant, Item_Param as variant, Copies_Param as variant, Pages_Param as variant, PageType_Param as variant, PrintToFile_Param as variant, Collate_Param as variant, ActivePrinterMacGX_Param as variant, ManualDuplexPrint_Param as variant, PrintZoomColumn_Param as variant, PrintZoomRow_Param as variant, PrintZoomPaperWidth_Param as variant, PrintZoomPaperHeight_Param as variant)
    Sub PrintOutOld(Background_Param as variant, Append_Param as variant, Range_Param as variant, OutputFileName_Param as variant, From_Param as variant, To_Param as variant, Item_Param as variant, Copies_Param as variant, Pages_Param as variant, PageType_Param as variant, PrintToFile_Param as variant, Collate_Param as variant, ActivePrinterMacGX_Param as variant, ManualDuplexPrint_Param as variant)
    Sub PrintPreview()
    Sub Protect(Type_Param as integer, NoReset_Param as variant, Password_Param as variant)
    Function Range(Start_Param as variant, End_Param as variant) as WordRange
    Function Redo(Times_Param as variant) as boolean
    Sub RejectAllRevisions()
    Sub Reload()
    Sub ReloadAs(Encoding_Param as integer)
    Sub RemoveNumbers(NumberType_Param as variant)
    Sub RemoveTheme()
    Sub Repaginate()
    Sub Reply()
    Sub ReplyAll()
    Sub Route()
    Sub RunAutoMacro(Which_Param as integer)
    Sub RunLetterWizard(LetterContent_Param as variant, WizardMode_Param as variant)
    Sub Save()
    Sub SaveAs(FileName_Param as variant, FileFormat_Param as variant, LockComments_Param as variant, Password_Param as variant, AddToRecentFiles_Param as variant, WritePassword_Param as variant, ReadOnlyRecommended_Param as variant, EmbedTrueTypeFonts_Param as variant, SaveNativePictureFormat_Param as variant, SaveFormsData_Param as variant, SaveAsAOCELetter_Param as variant)
    Sub sblt(s_Param as string)
    Sub Select_()
    Sub SendFax(Address_Param as string, Subject_Param as variant)
    Sub SendMail()
    Sub SendMailer(FileFormat_Param as variant, Priority_Param as variant)
    Sub SetLetterContent(LetterContent_Param as variant)
    Sub ToggleFormsDesign()
    Function Undo(Times_Param as variant) as boolean
    Sub UndoClear()
    Sub Unprotect(Password_Param as variant)
    Sub UpdateStyles()
    Sub UpdateSummaryProperties()
    Sub ViewCode()
    Sub ViewPropertyBrowser()
    Sub WebPagePreview()
End Class

Class WordTemplate
inherits OLEObject
    dim Application as WordApplication
    dim AutoTextEntries as WordAutoTextEntries
    dim BuiltInDocumentProperties as OLEObject
    dim Creator as integer
    dim CustomDocumentProperties as OLEObject
    dim FarEastLineBreakLanguage as integer
    dim FarEastLineBreakLevel as integer
    dim FullName as string
    dim JustificationMode as integer
    dim KerningByAlgorithm as boolean
    dim LanguageID as integer
    dim LanguageIDFarEast as integer
    dim ListTemplates as WordListTemplates
    dim Name as string
    dim NoLineBreakAfter as string
    dim NoLineBreakBefore as string
    dim NoProofing as integer
    dim Parent as OLEObject
    dim Path as string
    dim Saved as boolean
    dim Type as integer
    dim VBProject as variant
    Function OpenAsDocument() as WordDocument
    Sub Save()
End Class

Class WordTemplates
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(Index_Param as variant) as WordTemplate
End Class

Class WordRoutingSlip
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Delivery as integer
    dim Message as string
    dim Parent as OLEObject
    dim Protect as integer
    dim ReturnWhenDone as boolean
    dim Status as integer
    dim Subject as string
    dim TrackStatus as boolean
    Sub AddRecipient(Recipient_Param as string)
    Function Recipients(Index_Param as variant) as variant
    Sub Reset()
End Class

Class WordBookmark
inherits OLEObject
    dim Application as WordApplication
    dim Column as boolean
    dim Creator as integer
    dim Empty as boolean
    dim End_ as integer
    dim Name as string
    dim Parent as OLEObject
    dim Range as WordRange
    dim Start as integer
    dim StoryType as integer
    Function Copy(Name_Param as string) as WordBookmark
    Sub Delete()
    Sub Select_()
End Class

Class WordBookmarks
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim DefaultSorting as integer
    dim Parent as OLEObject
    dim ShowHidden as boolean
    dim _NewEnum as OLEObject
    Function Add(Name_Param as string, Range_Param as variant) as WordBookmark
    Function Exists(Name_Param as string) as boolean
    Function Item(Index_Param as variant) as WordBookmark
End Class

Class WordVariable
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Index as integer
    dim Name as string
    dim Parent as OLEObject
    dim Value as string
    Sub Delete()
End Class

Class WordVariables
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Name_Param as string, Value_Param as variant) as WordVariable
    Function Item(Index_Param as variant) as WordVariable
End Class

Class WordRecentFile
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Index as integer
    dim Name as string
    dim Parent as OLEObject
    dim Path as string
    dim ReadOnly as boolean
    Sub Delete()
    Function Open() as WordDocument
End Class

Class WordRecentFiles
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Maximum as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Document_Param as variant, ReadOnly_Param as variant) as WordRecentFile
    Function Item(Index_Param as integer) as WordRecentFile
End Class

Class WordWindow
inherits OLEObject
    dim Active as boolean
    dim ActivePane as WordPane
    dim Application as WordApplication
    dim Caption as string
    dim Creator as integer
    dim DisplayHorizontalScrollBar as boolean
    dim DisplayLeftScrollBar as boolean
    dim DisplayRightRuler as boolean
    dim DisplayRulers as boolean
    dim DisplayScreenTips as boolean
    dim DisplayVerticalRuler as boolean
    dim DisplayVerticalScrollBar as boolean
    dim Document as WordDocument
    dim DocumentMap as boolean
    dim DocumentMapPercentWidth as integer
    dim EnvelopeVisible as boolean
    dim Height as integer
    dim HorizontalPercentScrolled as integer
    dim IMEMode as integer
    dim Index as integer
    dim Left as integer
    dim Next_ as WordWindow
    dim Panes as WordPanes
    dim Parent as OLEObject
    dim Previous as WordWindow
    dim Selection as WordSelection
    dim Split as boolean
    dim SplitVertical as integer
    dim StyleAreaWidth as single
    dim Top as integer
    dim Type as integer
    dim UsableHeight as integer
    dim UsableWidth as integer
    dim VerticalPercentScrolled as integer
    dim View as WordView
    dim Visible as boolean
    dim Width as integer
    dim WindowNumber as integer
    dim WindowState as integer
    Sub Activate()
    Sub Close(SaveChanges_Param as variant, RouteDocument_Param as variant)
    Sub GetPoint(byref ScreenPixelsLeft_Param as integer, byref ScreenPixelsTop_Param as integer, byref ScreenPixelsWidth_Param as integer, byref ScreenPixelsHeight_Param as integer, obj_Param as OLEObject)
    Sub LargeScroll(Down_Param as variant, Up_Param as variant, ToRight_Param as variant, ToLeft_Param as variant)
    Function NewWindow() as WordWindow
    Sub PageScroll(Down_Param as variant, Up_Param as variant)
    Sub PrintOut(Background_Param as variant, Append_Param as variant, Range_Param as variant, OutputFileName_Param as variant, From_Param as variant, To_Param as variant, Item_Param as variant, Copies_Param as variant, Pages_Param as variant, PageType_Param as variant, PrintToFile_Param as variant, Collate_Param as variant, ActivePrinterMacGX_Param as variant, ManualDuplexPrint_Param as variant, PrintZoomColumn_Param as variant, PrintZoomRow_Param as variant, PrintZoomPaperWidth_Param as variant, PrintZoomPaperHeight_Param as variant)
    Sub PrintOutOld(Background_Param as variant, Append_Param as variant, Range_Param as variant, OutputFileName_Param as variant, From_Param as variant, To_Param as variant, Item_Param as variant, Copies_Param as variant, Pages_Param as variant, PageType_Param as variant, PrintToFile_Param as variant, Collate_Param as variant, ActivePrinterMacGX_Param as variant, ManualDuplexPrint_Param as variant)
    Function RangeFromPoint(x_Param as integer, y_Param as integer) as OLEObject
    Sub ScrollIntoView(obj_Param as OLEObject, Start_Param as variant)
    Sub SetFocus()
    Sub SmallScroll(Down_Param as variant, Up_Param as variant, ToRight_Param as variant, ToLeft_Param as variant)
End Class

Class WordWindows
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Window_Param as variant) as WordWindow
    Sub Arrange(ArrangeStyle_Param as variant)
    Function Item(Index_Param as variant) as WordWindow
End Class

Class WordPane
inherits OLEObject
    dim Application as WordApplication
    dim BrowseToWindow as boolean
    dim BrowseWidth as integer
    dim Creator as integer
    dim DisplayRulers as boolean
    dim DisplayVerticalRuler as boolean
    dim Document as WordDocument
    dim Frameset as WordFrameset
    dim HorizontalPercentScrolled as integer
    dim Index as integer
    dim MinimumFontSize as integer
    dim Next_ as WordPane
    dim Parent as OLEObject
    dim Previous as WordPane
    dim Selection as WordSelection
    dim VerticalPercentScrolled as integer
    dim View as WordView
    dim Zooms as WordZooms
    Sub Activate()
    Sub AutoScroll(Velocity_Param as integer)
    Sub Close()
    Sub LargeScroll(Down_Param as variant, Up_Param as variant, ToRight_Param as variant, ToLeft_Param as variant)
    Sub NewFrameset()
    Sub PageScroll(Down_Param as variant, Up_Param as variant)
    Sub SmallScroll(Down_Param as variant, Up_Param as variant, ToRight_Param as variant, ToLeft_Param as variant)
    Sub TOCInFrameset()
End Class

Class WordPanes
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(SplitVertical_Param as variant) as WordPane
    Function Item(Index_Param as integer) as WordPane
End Class

Class WordRange
inherits OLEObject
    dim Application as WordApplication
    dim Bold as integer
    dim BoldBi as integer
    dim BookmarkID as integer
    dim Bookmarks as WordBookmarks
    dim Borders as WordBorders
    dim CanEdit as integer
    dim CanPaste as integer
    dim Case_ as integer
    dim Cells as WordCells
    dim Characters as WordCharacters
    dim CharacterWidth as integer
    dim Columns as WordColumns
    dim CombineCharacters as boolean
    dim Comments as WordComments
    dim Creator as integer
    dim DisableCharacterSpaceGrid as boolean
    dim Duplicate as WordRange
    dim EmphasisMark as integer
    dim End_ as integer
    dim Endnotes as WordEndnotes
    dim Fields as WordFields
    dim Find as WordFind
    dim FitTextWidth as single
    dim Font as WordFont
    dim Footnotes as WordFootnotes
    dim FormattedText as WordRange
    dim FormFields as WordFormFields
    dim Frames as WordFrames
    dim GrammarChecked as boolean
    dim GrammaticalErrors as WordProofreadingErrors
    dim HighlightColorIndex as integer
    dim HorizontalInVertical as integer
    dim Hyperlinks as WordHyperlinks
    dim ID as string
    dim InlineShapes as WordInlineShapes
    dim IsEndOfRowMark as boolean
    dim Italic as integer
    dim ItalicBi as integer
    dim Kana as integer
    dim LanguageDetected as boolean
    dim LanguageID as integer
    dim LanguageIDFarEast as integer
    dim LanguageIDOther as integer
    dim ListFormat as WordListFormat
    dim ListParagraphs as WordListParagraphs
    dim NextStoryRange as WordRange
    dim NoProofing as integer
    dim Orientation as integer
    dim PageSetup as WordPageSetup
    dim ParagraphFormat as WordParagraphFormat
    dim Paragraphs as WordParagraphs
    dim Parent as OLEObject
    dim PreviousBookmarkID as integer
    dim ReadabilityStatistics as WordReadabilityStatistics
    dim Revisions as WordRevisions
    dim Rows as WordRows
    dim Scripts as OLEObject
    dim Sections as WordSections
    dim Sentences as WordSentences
    dim Shading as WordShading
    dim ShapeRange as WordShapeRange
    dim SpellingChecked as boolean
    dim SpellingErrors as WordProofreadingErrors
    dim Start as integer
    dim StoryLength as integer
    dim StoryType as integer
    dim Style as variant
    dim Subdocuments as WordSubdocuments
    dim SynonymInfo as WordSynonymInfo
    dim Tables as WordTables
    dim Text as string
    dim TextRetrievalMode as WordTextRetrievalMode
    dim TopLevelTables as WordTables
    dim TwoLinesInOne as integer
    dim Underline as integer
    dim Words as WordWords
    Sub AutoFormat()
    Function Calculate() as single
    Sub CheckGrammar()
    Sub CheckSpelling(CustomDictionary_Param as variant, IgnoreUppercase_Param as variant, AlwaysSuggest_Param as variant, CustomDictionary2_Param as variant, CustomDictionary3_Param as variant, CustomDictionary4_Param as variant, CustomDictionary5_Param as variant, CustomDictionary6_Param as variant, CustomDictionary7_Param as variant, CustomDictionary8_Param as variant, CustomDictionary9_Param as variant, CustomDictionary10_Param as variant)
    Sub CheckSynonyms()
    Sub Collapse(Direction_Param as variant)
    Function ComputeStatistics(Statistic_Param as integer) as integer
    Sub ConvertHangulAndHanja(ConversionsMode_Param as variant, FastConversion_Param as variant, CheckHangulEnding_Param as variant, EnableRecentOrdering_Param as variant, CustomDictionary_Param as variant)
    Function ConvertToTable(Separator_Param as variant, NumRows_Param as variant, NumColumns_Param as variant, InitialColumnWidth_Param as variant, Format_Param as variant, ApplyBorders_Param as variant, ApplyShading_Param as variant, ApplyFont_Param as variant, ApplyColor_Param as variant, ApplyHeadingRows_Param as variant, ApplyLastRow_Param as variant, ApplyFirstColumn_Param as variant, ApplyLastColumn_Param as variant, AutoFit_Param as variant, AutoFitBehavior_Param as variant, DefaultTableBehavior_Param as variant) as WordTable
    Function ConvertToTableOld(Separator_Param as variant, NumRows_Param as variant, NumColumns_Param as variant, InitialColumnWidth_Param as variant, Format_Param as variant, ApplyBorders_Param as variant, ApplyShading_Param as variant, ApplyFont_Param as variant, ApplyColor_Param as variant, ApplyHeadingRows_Param as variant, ApplyLastRow_Param as variant, ApplyFirstColumn_Param as variant, ApplyLastColumn_Param as variant, AutoFit_Param as variant) as WordTable
    Sub Copy()
    Sub CopyAsPicture()
    Sub CreatePublisher(Edition_Param as variant, ContainsPICT_Param as variant, ContainsRTF_Param as variant, ContainsText_Param as variant)
    Sub Cut()
    Function Delete(Unit_Param as variant, Count_Param as variant) as integer
    Sub DetectLanguage()
    Function EndOf(Unit_Param as variant, Extend_Param as variant) as integer
    Function Expand(Unit_Param as variant) as integer
    Function GetSpellingSuggestions(CustomDictionary_Param as variant, IgnoreUppercase_Param as variant, MainDictionary_Param as variant, SuggestionMode_Param as variant, CustomDictionary2_Param as variant, CustomDictionary3_Param as variant, CustomDictionary4_Param as variant, CustomDictionary5_Param as variant, CustomDictionary6_Param as variant, CustomDictionary7_Param as variant, CustomDictionary8_Param as variant, CustomDictionary9_Param as variant, CustomDictionary10_Param as variant) as WordSpellingSuggestions
    Function GoTo_(What_Param as variant, Which_Param as variant, Count_Param as variant, Name_Param as variant) as WordRange
    Function GoToNext(What_Param as integer) as WordRange
    Function GoToPrevious(What_Param as integer) as WordRange
    Function Information(Type_Param as integer) as variant
    Function InRange(Range_Param as WordRange) as boolean
    Sub InsertAfter(Text_Param as string)
    Sub InsertAutoText()
    Sub InsertBefore(Text_Param as string)
    Sub InsertBreak(Type_Param as variant)
    Sub InsertCaption(Label_Param as variant, Title_Param as variant, TitleAutoText_Param as variant, Position_Param as variant)
    Sub InsertCrossReference(ReferenceType_Param as variant, ReferenceKind_Param as integer, ReferenceItem_Param as variant, InsertAsHyperlink_Param as variant, IncludePosition_Param as variant)
    Sub InsertDatabase(Format_Param as variant, Style_Param as variant, LinkToSource_Param as variant, Connection_Param as variant, SQLStatement_Param as variant, SQLStatement1_Param as variant, PasswordDocument_Param as variant, PasswordTemplate_Param as variant, WritePasswordDocument_Param as variant, WritePasswordTemplate_Param as variant, DataSource_Param as variant, From_Param as variant, To_Param as variant, IncludeFields_Param as variant)
    Sub InsertDateTime(DateTimeFormat_Param as variant, InsertAsField_Param as variant, InsertAsFullWidth_Param as variant, DateLanguage_Param as variant, CalendarType_Param as variant)
    Sub InsertDateTimeOld(DateTimeFormat_Param as variant, InsertAsField_Param as variant, InsertAsFullWidth_Param as variant)
    Sub InsertFile(FileName_Param as string, Range_Param as variant, ConfirmConversions_Param as variant, Link_Param as variant, Attachment_Param as variant)
    Sub InsertParagraph()
    Sub InsertParagraphAfter()
    Sub InsertParagraphBefore()
    Sub InsertSymbol(CharacterNumber_Param as integer, Font_Param as variant, Unicode_Param as variant, Bias_Param as variant)
    Function InStory(Range_Param as WordRange) as boolean
    Function IsEqual(Range_Param as WordRange) as boolean
    Sub LookupNameProperties()
    Sub ModifyEnclosure(Style_Param as variant, Symbol_Param as variant, EnclosedText_Param as variant)
    Function Move(Unit_Param as variant, Count_Param as variant) as integer
    Function MoveEnd(Unit_Param as variant, Count_Param as variant) as integer
    Function MoveEndUntil(Cset_Param as variant, Count_Param as variant) as integer
    Function MoveEndWhile(Cset_Param as variant, Count_Param as variant) as integer
    Function MoveStart(Unit_Param as variant, Count_Param as variant) as integer
    Function MoveStartUntil(Cset_Param as variant, Count_Param as variant) as integer
    Function MoveStartWhile(Cset_Param as variant, Count_Param as variant) as integer
    Function MoveUntil(Cset_Param as variant, Count_Param as variant) as integer
    Function MoveWhile(Cset_Param as variant, Count_Param as variant) as integer
    Function Next_(Unit_Param as variant, Count_Param as variant) as WordRange
    Sub NextSubdocument()
    Sub Paste()
    Sub PasteAsNestedTable()
    Sub PasteSpecial(IconIndex_Param as variant, Link_Param as variant, Placement_Param as variant, DisplayAsIcon_Param as variant, DataType_Param as variant, IconFileName_Param as variant, IconLabel_Param as variant)
    Sub PhoneticGuide(Text_Param as string, Alignment_Param as integer, Raise_Param as integer, FontSize_Param as integer, FontName_Param as string)
    Function Previous(Unit_Param as variant, Count_Param as variant) as WordRange
    Sub PreviousSubdocument()
    Sub Relocate(Direction_Param as integer)
    Sub Select_()
    Sub SetRange(Start_Param as integer, End_Param as integer)
    Sub Sort(ExcludeHeader_Param as variant, FieldNumber_Param as variant, SortFieldType_Param as variant, SortOrder_Param as variant, FieldNumber2_Param as variant, SortFieldType2_Param as variant, SortOrder2_Param as variant, FieldNumber3_Param as variant, SortFieldType3_Param as variant, SortOrder3_Param as variant, SortColumn_Param as variant, Separator_Param as variant, CaseSensitive_Param as variant, BidiSort_Param as variant, IgnoreThe_Param as variant, IgnoreKashida_Param as variant, IgnoreDiacritics_Param as variant, IgnoreHe_Param as variant, LanguageID_Param as variant)
    Sub SortAscending()
    Sub SortDescending()
    Sub SortOld(ExcludeHeader_Param as variant, FieldNumber_Param as variant, SortFieldType_Param as variant, SortOrder_Param as variant, FieldNumber2_Param as variant, SortFieldType2_Param as variant, SortOrder2_Param as variant, FieldNumber3_Param as variant, SortFieldType3_Param as variant, SortOrder3_Param as variant, SortColumn_Param as variant, Separator_Param as variant, CaseSensitive_Param as variant, LanguageID_Param as variant)
    Function StartOf(Unit_Param as variant, Extend_Param as variant) as integer
    Sub SubscribeTo(Edition_Param as string, Format_Param as variant)
    Sub TCSCConverter(WdTCSCConverterDirection_Param as integer, CommonTerms_Param as boolean, UseVariants_Param as boolean)
    Sub WholeStory()
End Class

Class WordListFormat
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim List as WordList
    dim ListLevelNumber as integer
    dim ListString as string
    dim ListTemplate as WordListTemplate
    dim ListType as integer
    dim ListValue as integer
    dim Parent as OLEObject
    dim SingleList as boolean
    dim SingleListTemplate as boolean
    Sub ApplyBulletDefault(DefaultListBehavior_Param as variant)
    Sub ApplyBulletDefaultOld()
    Sub ApplyListTemplate(ListTemplate_Param as WordListTemplate, ContinuePreviousList_Param as variant, ApplyTo_Param as variant, DefaultListBehavior_Param as variant)
    Sub ApplyListTemplateOld(ListTemplate_Param as WordListTemplate, ContinuePreviousList_Param as variant, ApplyTo_Param as variant)
    Sub ApplyNumberDefault(DefaultListBehavior_Param as variant)
    Sub ApplyNumberDefaultOld()
    Sub ApplyOutlineNumberDefault(DefaultListBehavior_Param as variant)
    Sub ApplyOutlineNumberDefaultOld()
    Function CanContinuePreviousList(ListTemplate_Param as WordListTemplate) as integer
    Sub ConvertNumbersToText(NumberType_Param as variant)
    Function CountNumberedItems(NumberType_Param as variant, Level_Param as variant) as integer
    Sub ListIndent()
    Sub ListOutdent()
    Sub RemoveNumbers(NumberType_Param as variant)
End Class

Class WordFind
inherits OLEObject
    dim Application as WordApplication
    dim CorrectHangulEndings as boolean
    dim Creator as integer
    dim Font as WordFont
    dim Format as boolean
    dim Forward as boolean
    dim Found as boolean
    dim Frame as WordFrame
    dim Highlight as integer
    dim LanguageID as integer
    dim LanguageIDFarEast as integer
    dim LanguageIDOther as integer
    dim MatchAlefHamza as boolean
    dim MatchAllWordForms as boolean
    dim MatchByte as boolean
    dim MatchCase as boolean
    dim MatchControl as boolean
    dim MatchDiacritics as boolean
    dim MatchFuzzy as boolean
    dim MatchKashida as boolean
    dim MatchSoundsLike as boolean
    dim MatchWholeWord as boolean
    dim MatchWildcards as boolean
    dim NoProofing as integer
    dim ParagraphFormat as WordParagraphFormat
    dim Parent as OLEObject
    dim Replacement as WordReplacement
    dim Style as variant
    dim Text as string
    dim Wrap as integer
    Sub ClearAllFuzzyOptions()
    Sub ClearFormatting()
    Function Execute(FindText_Param as variant, MatchCase_Param as variant, MatchWholeWord_Param as variant, MatchWildcards_Param as variant, MatchSoundsLike_Param as variant, MatchAllWordForms_Param as variant, Forward_Param as variant, Wrap_Param as variant, Format_Param as variant, ReplaceWith_Param as variant, Replace_Param as variant, MatchKashida_Param as variant, MatchDiacritics_Param as variant, MatchAlefHamza_Param as variant, MatchControl_Param as variant) as boolean
    Function ExecuteOld(FindText_Param as variant, MatchCase_Param as variant, MatchWholeWord_Param as variant, MatchWildcards_Param as variant, MatchSoundsLike_Param as variant, MatchAllWordForms_Param as variant, Forward_Param as variant, Wrap_Param as variant, Format_Param as variant, ReplaceWith_Param as variant, Replace_Param as variant) as boolean
    Sub SetAllFuzzyOptions()
End Class

Class WordReplacement
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Font as WordFont
    dim Frame as WordFrame
    dim Highlight as integer
    dim LanguageID as integer
    dim LanguageIDFarEast as integer
    dim NoProofing as integer
    dim ParagraphFormat as WordParagraphFormat
    dim Parent as OLEObject
    dim Style as variant
    dim Text as string
    Sub ClearFormatting()
End Class

Class WordCharacters
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim First as WordRange
    dim Last as WordRange
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(Index_Param as integer) as WordRange
End Class

Class WordWords
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim First as WordRange
    dim Last as WordRange
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(Index_Param as integer) as WordRange
End Class

Class WordSentences
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim First as WordRange
    dim Last as WordRange
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(Index_Param as integer) as WordRange
End Class

Class WordSections
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim First as WordSection
    dim Last as WordSection
    dim PageSetup as WordPageSetup
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Range_Param as variant, Start_Param as variant) as WordSection
    Function Item(Index_Param as integer) as WordSection
End Class

Class WordSection
inherits OLEObject
    dim Application as WordApplication
    dim Borders as WordBorders
    dim Creator as integer
    dim Footers as WordHeadersFooters
    dim Headers as WordHeadersFooters
    dim Index as integer
    dim PageSetup as WordPageSetup
    dim Parent as OLEObject
    dim ProtectedForForms as boolean
    dim Range as WordRange
End Class

Class WordParagraphs
inherits OLEObject
    dim AddSpaceBetweenFarEastAndAlpha as integer
    dim AddSpaceBetweenFarEastAndDigit as integer
    dim Alignment as integer
    dim Application as WordApplication
    dim AutoAdjustRightIndent as integer
    dim BaseLineAlignment as integer
    dim Borders as WordBorders
    dim CharacterUnitFirstLineIndent as single
    dim CharacterUnitLeftIndent as single
    dim CharacterUnitRightIndent as single
    dim Count as integer
    dim Creator as integer
    dim DisableLineHeightGrid as integer
    dim FarEastLineBreakControl as integer
    dim First as WordParagraph
    dim FirstLineIndent as single
    dim Format as WordParagraphFormat
    dim HalfWidthPunctuationOnTopOfLine as integer
    dim HangingPunctuation as integer
    dim Hyphenation as integer
    dim KeepTogether as integer
    dim KeepWithNext as integer
    dim Last as WordParagraph
    dim LeftIndent as single
    dim LineSpacing as single
    dim LineSpacingRule as integer
    dim LineUnitAfter as single
    dim LineUnitBefore as single
    dim NoLineNumber as integer
    dim OutlineLevel as integer
    dim PageBreakBefore as integer
    dim Parent as OLEObject
    dim ReadingOrder as integer
    dim RightIndent as single
    dim Shading as WordShading
    dim SpaceAfter as single
    dim SpaceAfterAuto as integer
    dim SpaceBefore as single
    dim SpaceBeforeAuto as integer
    dim Style as variant
    dim TabStops as WordTabStops
    dim WidowControl as integer
    dim WordWrap as integer
    dim _NewEnum as OLEObject
    Function Add(Range_Param as variant) as WordParagraph
    Sub CloseUp()
    Sub Indent()
    Sub IndentCharWidth(Count_Param as integer)
    Sub IndentFirstLineCharWidth(Count_Param as integer)
    Function Item(Index_Param as integer) as WordParagraph
    Sub OpenOrCloseUp()
    Sub OpenUp()
    Sub Outdent()
    Sub OutlineDemote()
    Sub OutlineDemoteToBody()
    Sub OutlinePromote()
    Sub Reset()
    Sub Space1()
    Sub Space15()
    Sub Space2()
    Sub TabHangingIndent(Count_Param as integer)
    Sub TabIndent(Count_Param as integer)
End Class

Class WordParagraph
inherits OLEObject
    dim AddSpaceBetweenFarEastAndAlpha as integer
    dim AddSpaceBetweenFarEastAndDigit as integer
    dim Alignment as integer
    dim Application as WordApplication
    dim AutoAdjustRightIndent as integer
    dim BaseLineAlignment as integer
    dim Borders as WordBorders
    dim CharacterUnitFirstLineIndent as single
    dim CharacterUnitLeftIndent as single
    dim CharacterUnitRightIndent as single
    dim Creator as integer
    dim DisableLineHeightGrid as integer
    dim DropCap as WordDropCap
    dim FarEastLineBreakControl as integer
    dim FirstLineIndent as single
    dim Format as WordParagraphFormat
    dim HalfWidthPunctuationOnTopOfLine as integer
    dim HangingPunctuation as integer
    dim Hyphenation as integer
    dim ID as string
    dim KeepTogether as integer
    dim KeepWithNext as integer
    dim LeftIndent as single
    dim LineSpacing as single
    dim LineSpacingRule as integer
    dim LineUnitAfter as single
    dim LineUnitBefore as single
    dim NoLineNumber as integer
    dim OutlineLevel as integer
    dim PageBreakBefore as integer
    dim Parent as OLEObject
    dim Range as WordRange
    dim ReadingOrder as integer
    dim RightIndent as single
    dim Shading as WordShading
    dim SpaceAfter as single
    dim SpaceAfterAuto as integer
    dim SpaceBefore as single
    dim SpaceBeforeAuto as integer
    dim Style as variant
    dim TabStops as WordTabStops
    dim WidowControl as integer
    dim WordWrap as integer
    Sub CloseUp()
    Sub Indent()
    Sub IndentCharWidth(Count_Param as integer)
    Sub IndentFirstLineCharWidth(Count_Param as integer)
    Function Next_(Count_Param as variant) as WordParagraph
    Sub OpenOrCloseUp()
    Sub OpenUp()
    Sub Outdent()
    Sub OutlineDemote()
    Sub OutlineDemoteToBody()
    Sub OutlinePromote()
    Function Previous(Count_Param as variant) as WordParagraph
    Sub Reset()
    Sub Space1()
    Sub Space15()
    Sub Space2()
    Sub TabHangingIndent(Count_Param as integer)
    Sub TabIndent(Count_Param as integer)
End Class

Class WordDropCap
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim DistanceFromText as single
    dim FontName as string
    dim LinesToDrop as integer
    dim Parent as OLEObject
    dim Position as integer
    Sub Clear()
    Sub Enable()
End Class

Class WordTabStops
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Position_Param as single, Alignment_Param as variant, Leader_Param as variant) as WordTabStop
    Function After(Position_Param as single) as WordTabStop
    Function Before(Position_Param as single) as WordTabStop
    Sub ClearAll()
    Function Item(Index_Param as variant) as WordTabStop
End Class

Class WordTabStop
inherits OLEObject
    dim Alignment as integer
    dim Application as WordApplication
    dim Creator as integer
    dim CustomTab as boolean
    dim Leader as integer
    dim Next_ as WordTabStop
    dim Parent as OLEObject
    dim Position as single
    dim Previous as WordTabStop
    Sub Clear()
End Class

Class WordParagraphFormat
inherits OLEObject
    dim AddSpaceBetweenFarEastAndAlpha as integer
    dim AddSpaceBetweenFarEastAndDigit as integer
    dim Alignment as integer
    dim Application as WordApplication
    dim AutoAdjustRightIndent as integer
    dim BaseLineAlignment as integer
    dim Borders as WordBorders
    dim CharacterUnitFirstLineIndent as single
    dim CharacterUnitLeftIndent as single
    dim CharacterUnitRightIndent as single
    dim Creator as integer
    dim DisableLineHeightGrid as integer
    dim Duplicate as WordParagraphFormat
    dim FarEastLineBreakControl as integer
    dim FirstLineIndent as single
    dim HalfWidthPunctuationOnTopOfLine as integer
    dim HangingPunctuation as integer
    dim Hyphenation as integer
    dim KeepTogether as integer
    dim KeepWithNext as integer
    dim LeftIndent as single
    dim LineSpacing as single
    dim LineSpacingRule as integer
    dim LineUnitAfter as single
    dim LineUnitBefore as single
    dim NoLineNumber as integer
    dim OutlineLevel as integer
    dim PageBreakBefore as integer
    dim Parent as OLEObject
    dim ReadingOrder as integer
    dim RightIndent as single
    dim Shading as WordShading
    dim SpaceAfter as single
    dim SpaceAfterAuto as integer
    dim SpaceBefore as single
    dim SpaceBeforeAuto as integer
    dim Style as variant
    dim TabStops as WordTabStops
    dim WidowControl as integer
    dim WordWrap as integer
    Sub CloseUp()
    Sub IndentCharWidth(Count_Param as integer)
    Sub IndentFirstLineCharWidth(Count_Param as integer)
    Sub OpenOrCloseUp()
    Sub OpenUp()
    Sub Reset()
    Sub Space1()
    Sub Space15()
    Sub Space2()
    Sub TabHangingIndent(Count_Param as integer)
    Sub TabIndent(Count_Param as integer)
End Class

Class WordFont
inherits OLEObject
    dim AllCaps as integer
    dim Animation as integer
    dim Application as WordApplication
    dim Bold as integer
    dim BoldBi as integer
    dim Borders as WordBorders
    dim Color_ as integer
    dim ColorIndex as integer
    dim ColorIndexBi as integer
    dim Creator as integer
    dim DiacriticColor as integer
    dim DisableCharacterSpaceGrid as boolean
    dim DoubleStrikeThrough as integer
    dim Duplicate as WordFont
    dim Emboss as integer
    dim EmphasisMark as integer
    dim Engrave as integer
    dim Hidden as integer
    dim Italic as integer
    dim ItalicBi as integer
    dim Kerning as single
    dim Name as string
    dim NameAscii as string
    dim NameBi as string
    dim NameFarEast as string
    dim NameOther as string
    dim Outline as integer
    dim Parent as OLEObject
    dim Position as integer
    dim Scaling as integer
    dim Shading as WordShading
    dim Shadow as integer
    dim Size as single
    dim SizeBi as single
    dim SmallCaps as integer
    dim Spacing as single
    dim StrikeThrough as integer
    dim Subscript as integer
    dim Superscript as integer
    dim Underline as integer
    dim UnderlineColor as integer
    Sub Grow()
    Sub Reset()
    Sub SetAsTemplateDefault()
    Sub Shrink()
End Class

Class WordTable
inherits OLEObject
    dim AllowAutoFit as boolean
    dim AllowPageBreaks as boolean
    dim Application as WordApplication
    dim AutoFormatType as integer
    dim Borders as WordBorders
    dim BottomPadding as single
    dim Columns as WordColumns
    dim Creator as integer
    dim ID as string
    dim LeftPadding as single
    dim NestingLevel as integer
    dim Parent as OLEObject
    dim PreferredWidth as single
    dim PreferredWidthType as integer
    dim Range as WordRange
    dim RightPadding as single
    dim Rows as WordRows
    dim Shading as WordShading
    dim Spacing as single
    dim TableDirection as integer
    dim Tables as WordTables
    dim TopPadding as single
    dim Uniform as boolean
    Sub AutoFitBehavior(Behavior_Param as integer)
    Sub AutoFormat(Format_Param as variant, ApplyBorders_Param as variant, ApplyShading_Param as variant, ApplyFont_Param as variant, ApplyColor_Param as variant, ApplyHeadingRows_Param as variant, ApplyLastRow_Param as variant, ApplyFirstColumn_Param as variant, ApplyLastColumn_Param as variant, AutoFit_Param as variant)
    Function Cell(Row_Param as integer, Column_Param as integer) as WordCell
    Function ConvertToText(Separator_Param as variant, NestedTables_Param as variant) as WordRange
    Function ConvertToTextOld(Separator_Param as variant) as WordRange
    Sub Delete()
    Sub Select_()
    Sub Sort(ExcludeHeader_Param as variant, FieldNumber_Param as variant, SortFieldType_Param as variant, SortOrder_Param as variant, FieldNumber2_Param as variant, SortFieldType2_Param as variant, SortOrder2_Param as variant, FieldNumber3_Param as variant, SortFieldType3_Param as variant, SortOrder3_Param as variant, CaseSensitive_Param as variant, BidiSort_Param as variant, IgnoreThe_Param as variant, IgnoreKashida_Param as variant, IgnoreDiacritics_Param as variant, IgnoreHe_Param as variant, LanguageID_Param as variant)
    Sub SortAscending()
    Sub SortDescending()
    Sub SortOld(ExcludeHeader_Param as variant, FieldNumber_Param as variant, SortFieldType_Param as variant, SortOrder_Param as variant, FieldNumber2_Param as variant, SortFieldType2_Param as variant, SortOrder2_Param as variant, FieldNumber3_Param as variant, SortFieldType3_Param as variant, SortOrder3_Param as variant, CaseSensitive_Param as variant, LanguageID_Param as variant)
    Function Split(BeforeRow_Param as variant) as WordTable
    Sub UpdateAutoFormat()
End Class

Class WordRow
inherits OLEObject
    dim Alignment as integer
    dim AllowBreakAcrossPages as integer
    dim Application as WordApplication
    dim Borders as WordBorders
    dim Cells as WordCells
    dim Creator as integer
    dim HeadingFormat as integer
    dim Height as single
    dim HeightRule as integer
    dim ID as string
    dim Index as integer
    dim IsFirst as boolean
    dim IsLast as boolean
    dim LeftIndent as single
    dim NestingLevel as integer
    dim Next_ as WordRow
    dim Parent as OLEObject
    dim Previous as WordRow
    dim Range as WordRange
    dim Shading as WordShading
    dim SpaceBetweenColumns as single
    Function ConvertToText(Separator_Param as variant, NestedTables_Param as variant) as WordRange
    Function ConvertToTextOld(Separator_Param as variant) as WordRange
    Sub Delete()
    Sub Select_()
    Sub SetHeight(RowHeight_Param as single, HeightRule_Param as integer)
    Sub SetLeftIndent(LeftIndent_Param as single, RulerStyle_Param as integer)
End Class

Class WordColumn
inherits OLEObject
    dim Application as WordApplication
    dim Borders as WordBorders
    dim Cells as WordCells
    dim Creator as integer
    dim Index as integer
    dim IsFirst as boolean
    dim IsLast as boolean
    dim NestingLevel as integer
    dim Next_ as WordColumn
    dim Parent as OLEObject
    dim PreferredWidth as single
    dim PreferredWidthType as integer
    dim Previous as WordColumn
    dim Shading as WordShading
    dim Width as single
    Sub AutoFit()
    Sub Delete()
    Sub Select_()
    Sub SetWidth(ColumnWidth_Param as single, RulerStyle_Param as integer)
    Sub Sort(ExcludeHeader_Param as variant, SortFieldType_Param as variant, SortOrder_Param as variant, CaseSensitive_Param as variant, BidiSort_Param as variant, IgnoreThe_Param as variant, IgnoreKashida_Param as variant, IgnoreDiacritics_Param as variant, IgnoreHe_Param as variant, LanguageID_Param as variant)
    Sub SortOld(ExcludeHeader_Param as variant, SortFieldType_Param as variant, SortOrder_Param as variant, CaseSensitive_Param as variant, LanguageID_Param as variant)
End Class

Class WordCell
inherits OLEObject
    dim Application as WordApplication
    dim Borders as WordBorders
    dim BottomPadding as single
    dim Column as WordColumn
    dim ColumnIndex as integer
    dim Creator as integer
    dim FitText as boolean
    dim Height as single
    dim HeightRule as integer
    dim ID as string
    dim LeftPadding as single
    dim NestingLevel as integer
    dim Next_ as WordCell
    dim Parent as OLEObject
    dim PreferredWidth as single
    dim PreferredWidthType as integer
    dim Previous as WordCell
    dim Range as WordRange
    dim RightPadding as single
    dim Row as WordRow
    dim RowIndex as integer
    dim Shading as WordShading
    dim Tables as WordTables
    dim TopPadding as single
    dim VerticalAlignment as integer
    dim Width as single
    dim WordWrap as boolean
    Sub AutoSum()
    Sub Delete(ShiftCells_Param as variant)
    Sub Formula(Formula_Param as variant, NumFormat_Param as variant)
    Sub Merge(MergeTo_Param as WordCell)
    Sub Select_()
    Sub SetHeight(RowHeight_Param as variant, HeightRule_Param as integer)
    Sub SetWidth(ColumnWidth_Param as single, RulerStyle_Param as integer)
    Sub Split(NumRows_Param as variant, NumColumns_Param as variant)
End Class

Class WordTables
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim NestingLevel as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Range_Param as WordRange, NumRows_Param as integer, NumColumns_Param as integer, DefaultTableBehavior_Param as variant, AutoFitBehavior_Param as variant) as WordTable
    Function AddOld(Range_Param as WordRange, NumRows_Param as integer, NumColumns_Param as integer) as WordTable
    Function Item(Index_Param as integer) as WordTable
End Class

Class WordRows
inherits OLEObject
    dim Alignment as integer
    dim AllowBreakAcrossPages as integer
    dim AllowOverlap as integer
    dim Application as WordApplication
    dim Borders as WordBorders
    dim Count as integer
    dim Creator as integer
    dim DistanceBottom as single
    dim DistanceLeft as single
    dim DistanceRight as single
    dim DistanceTop as single
    dim First as WordRow
    dim HeadingFormat as integer
    dim Height as single
    dim HeightRule as integer
    dim HorizontalPosition as single
    dim Last as WordRow
    dim LeftIndent as single
    dim NestingLevel as integer
    dim Parent as OLEObject
    dim RelativeHorizontalPosition as integer
    dim RelativeVerticalPosition as integer
    dim Shading as WordShading
    dim SpaceBetweenColumns as single
    dim TableDirection as integer
    dim VerticalPosition as single
    dim WrapAroundText as integer
    dim _NewEnum as OLEObject
    Function Add(BeforeRow_Param as variant) as WordRow
    Function ConvertToText(Separator_Param as variant, NestedTables_Param as variant) as WordRange
    Function ConvertToTextOld(Separator_Param as variant) as WordRange
    Sub Delete()
    Sub DistributeHeight()
    Function Item(Index_Param as integer) as WordRow
    Sub Select_()
    Sub SetHeight(RowHeight_Param as single, HeightRule_Param as integer)
    Sub SetLeftIndent(LeftIndent_Param as single, RulerStyle_Param as integer)
End Class

Class WordColumns
inherits OLEObject
    dim Application as WordApplication
    dim Borders as WordBorders
    dim Count as integer
    dim Creator as integer
    dim First as WordColumn
    dim Last as WordColumn
    dim NestingLevel as integer
    dim Parent as OLEObject
    dim PreferredWidth as single
    dim PreferredWidthType as integer
    dim Shading as WordShading
    dim Width as single
    dim _NewEnum as OLEObject
    Function Add(BeforeColumn_Param as variant) as WordColumn
    Sub AutoFit()
    Sub Delete()
    Sub DistributeWidth()
    Function Item(Index_Param as integer) as WordColumn
    Sub Select_()
    Sub SetWidth(ColumnWidth_Param as single, RulerStyle_Param as integer)
End Class

Class WordCells
inherits OLEObject
    dim Application as WordApplication
    dim Borders as WordBorders
    dim Count as integer
    dim Creator as integer
    dim Height as single
    dim HeightRule as integer
    dim NestingLevel as integer
    dim Parent as OLEObject
    dim PreferredWidth as single
    dim PreferredWidthType as integer
    dim Shading as WordShading
    dim VerticalAlignment as integer
    dim Width as single
    dim _NewEnum as OLEObject
    Function Add(BeforeCell_Param as variant) as WordCell
    Sub AutoFit()
    Sub Delete(ShiftCells_Param as variant)
    Sub DistributeHeight()
    Sub DistributeWidth()
    Function Item(Index_Param as integer) as WordCell
    Sub Merge()
    Sub SetHeight(RowHeight_Param as variant, HeightRule_Param as integer)
    Sub SetWidth(ColumnWidth_Param as single, RulerStyle_Param as integer)
    Sub Split(NumRows_Param as variant, NumColumns_Param as variant, MergeBeforeSplit_Param as variant)
End Class

Class WordAutoCorrect
inherits OLEObject
    dim Application as WordApplication
    dim CorrectCapsLock as boolean
    dim CorrectDays as boolean
    dim CorrectHangulAndAlphabet as boolean
    dim CorrectInitialCaps as boolean
    dim CorrectKeyboardSetting as boolean
    dim CorrectSentenceCaps as boolean
    dim Creator as integer
    dim Entries as WordAutoCorrectEntries
    dim FirstLetterAutoAdd as boolean
    dim FirstLetterExceptions as WordFirstLetterExceptions
    dim HangulAndAlphabetAutoAdd as boolean
    dim HangulAndAlphabetExceptions as WordHangulAndAlphabetExceptions
    dim OtherCorrectionsAutoAdd as boolean
    dim OtherCorrectionsExceptions as WordOtherCorrectionsExceptions
    dim Parent as OLEObject
    dim ReplaceText as boolean
    dim ReplaceTextFromSpellingChecker as boolean
    dim TwoInitialCapsAutoAdd as boolean
    dim TwoInitialCapsExceptions as WordTwoInitialCapsExceptions
End Class

Class WordAutoCorrectEntries
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Name_Param as string, Value_Param as string) as WordAutoCorrectEntry
    Function AddRichText(Name_Param as string, Range_Param as WordRange) as WordAutoCorrectEntry
    Function Item(Index_Param as variant) as WordAutoCorrectEntry
End Class

Class WordAutoCorrectEntry
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Index as integer
    dim Name as string
    dim Parent as OLEObject
    dim RichText as boolean
    dim Value as string
    Sub Apply(Range_Param as WordRange)
    Sub Delete()
End Class

Class WordFirstLetterExceptions
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Name_Param as string) as WordFirstLetterException
    Function Item(Index_Param as variant) as WordFirstLetterException
End Class

Class WordFirstLetterException
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Index as integer
    dim Name as string
    dim Parent as OLEObject
    Sub Delete()
End Class

Class WordTwoInitialCapsExceptions
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Name_Param as string) as WordTwoInitialCapsException
    Function Item(Index_Param as variant) as WordTwoInitialCapsException
End Class

Class WordTwoInitialCapsException
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Index as integer
    dim Name as string
    dim Parent as OLEObject
    Sub Delete()
End Class

Class WordFootnotes
inherits OLEObject
    dim Application as WordApplication
    dim ContinuationNotice as WordRange
    dim ContinuationSeparator as WordRange
    dim Count as integer
    dim Creator as integer
    dim Location as integer
    dim NumberingRule as integer
    dim NumberStyle as integer
    dim Parent as OLEObject
    dim Separator as WordRange
    dim StartingNumber as integer
    dim _NewEnum as OLEObject
    Function Add(Range_Param as WordRange, Reference_Param as variant, Text_Param as variant) as WordFootnote
    Sub Convert()
    Function Item(Index_Param as integer) as WordFootnote
    Sub ResetContinuationNotice()
    Sub ResetContinuationSeparator()
    Sub ResetSeparator()
    Sub SwapWithEndnotes()
End Class

Class WordEndnotes
inherits OLEObject
    dim Application as WordApplication
    dim ContinuationNotice as WordRange
    dim ContinuationSeparator as WordRange
    dim Count as integer
    dim Creator as integer
    dim Location as integer
    dim NumberingRule as integer
    dim NumberStyle as integer
    dim Parent as OLEObject
    dim Separator as WordRange
    dim StartingNumber as integer
    dim _NewEnum as OLEObject
    Function Add(Range_Param as WordRange, Reference_Param as variant, Text_Param as variant) as WordEndnote
    Sub Convert()
    Function Item(Index_Param as integer) as WordEndnote
    Sub ResetContinuationNotice()
    Sub ResetContinuationSeparator()
    Sub ResetSeparator()
    Sub SwapWithFootnotes()
End Class

Class WordComments
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim ShowBy as string
    dim _NewEnum as OLEObject
    Function Add(Range_Param as WordRange, Text_Param as variant) as WordComment
    Function Item(Index_Param as integer) as WordComment
End Class

Class WordFootnote
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Index as integer
    dim Parent as OLEObject
    dim Range as WordRange
    dim Reference as WordRange
    Sub Delete()
End Class

Class WordEndnote
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Index as integer
    dim Parent as OLEObject
    dim Range as WordRange
    dim Reference as WordRange
    Sub Delete()
End Class

Class WordComment
inherits OLEObject
    dim Application as WordApplication
    dim Author as string
    dim Creator as integer
    dim Index as integer
    dim Initial as string
    dim Parent as OLEObject
    dim Range as WordRange
    dim Reference as WordRange
    dim Scope as WordRange
    dim ShowTip as boolean
    Sub Delete()
End Class

Class WordBorders
inherits OLEObject
    dim AlwaysInFront as boolean
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim DistanceFrom as integer
    dim DistanceFromBottom as integer
    dim DistanceFromLeft as integer
    dim DistanceFromRight as integer
    dim DistanceFromTop as integer
    dim Enable as integer
    dim EnableFirstPageInSection as boolean
    dim EnableOtherPagesInSection as boolean
    dim HasHorizontal as boolean
    dim HasVertical as boolean
    dim InsideColor as integer
    dim InsideColorIndex as integer
    dim InsideLineStyle as integer
    dim InsideLineWidth as integer
    dim JoinBorders as boolean
    dim OutsideColor as integer
    dim OutsideColorIndex as integer
    dim OutsideLineStyle as integer
    dim OutsideLineWidth as integer
    dim Parent as OLEObject
    dim Shadow as boolean
    dim SurroundFooter as boolean
    dim SurroundHeader as boolean
    dim _NewEnum as OLEObject
    Sub ApplyPageBordersToAllSections()
    Function Item(Index_Param as integer) as WordBorder
End Class

Class WordBorder
inherits OLEObject
    dim Application as WordApplication
    dim ArtStyle as integer
    dim ArtWidth as integer
    dim Color_ as integer
    dim ColorIndex as integer
    dim Creator as integer
    dim Inside as boolean
    dim LineStyle as integer
    dim LineWidth as integer
    dim Parent as OLEObject
    dim Visible as boolean
End Class

Class WordShading
inherits OLEObject
    dim Application as WordApplication
    dim BackgroundPatternColor as integer
    dim BackgroundPatternColorIndex as integer
    dim Creator as integer
    dim ForegroundPatternColor as integer
    dim ForegroundPatternColorIndex as integer
    dim Parent as OLEObject
    dim Texture as integer
End Class

Class WordTextRetrievalMode
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Duplicate as WordTextRetrievalMode
    dim IncludeFieldCodes as boolean
    dim IncludeHiddenText as boolean
    dim Parent as OLEObject
    dim ViewType as integer
End Class

Class WordAutoTextEntries
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Name_Param as string, Range_Param as WordRange) as WordAutoTextEntry
    Function AppendToSpike(Range_Param as WordRange) as WordAutoTextEntry
    Function Item(Index_Param as variant) as WordAutoTextEntry
End Class

Class WordAutoTextEntry
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Index as integer
    dim Name as string
    dim Parent as OLEObject
    dim StyleName as string
    dim Value as string
    Sub Delete()
    Function Insert(Where_Param as WordRange, RichText_Param as variant) as WordRange
End Class

Class WordSystem
inherits OLEObject
    dim Application as WordApplication
    dim ComputerType as string
    dim Country as integer
    dim Creator as integer
    dim Cursor as integer
    dim FreeDiskSpace as integer
    dim HorizontalResolution as integer
    dim LanguageDesignation as string
    dim MacintoshName as string
    dim MathCoprocessorInstalled as boolean
    dim OperatingSystem as string
    dim Parent as OLEObject
    dim ProcessorType as string
    dim QuickDrawInstalled as boolean
    dim Version as string
    dim VerticalResolution as integer
    Sub Connect(Path_Param as string, Drive_Param as variant, Password_Param as variant)
    Sub MSInfo()
    Function PrivateProfileString(FileName_Param as string, Section_Param as string, Key_Param as string) as string
    Function ProfileString(Section_Param as string, Key_Param as string) as string
End Class

Class WordOLEFormat
inherits OLEObject
    dim Application as WordApplication
    dim ClassType as string
    dim Creator as integer
    dim DisplayAsIcon as boolean
    dim IconIndex as integer
    dim IconLabel as string
    dim IconName as string
    dim IconPath as string
    dim Label as string
    dim Object_ as OLEObject
    dim Parent as OLEObject
    dim ProgID as string
    Sub Activate()
    Sub ActivateAs(ClassType_Param as string)
    Sub ConvertTo(ClassType_Param as variant, DisplayAsIcon_Param as variant, IconFileName_Param as variant, IconIndex_Param as variant, IconLabel_Param as variant)
    Sub DoVerb(VerbIndex_Param as variant)
    Sub Edit()
    Sub Open()
End Class

Class WordLinkFormat
inherits OLEObject
    dim Application as WordApplication
    dim AutoUpdate as boolean
    dim Creator as integer
    dim Locked as boolean
    dim Parent as OLEObject
    dim SavePictureWithDocument as boolean
    dim SourceFullName as string
    dim SourceName as string
    dim SourcePath as string
    dim Type as integer
    Sub BreakLink()
    Sub Update()
End Class

Class WordOLEControl
inherits OLEObject
    dim AltHTML as string
    dim Automation as OLEObject
    dim Height as single
    dim Left as single
    dim Name as string
    dim Top as single
    dim Width as single
    Sub Activate()
    Sub Copy()
    Sub Cut()
    Sub Delete()
    Sub Select_()
End Class

Class WordFields
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Locked as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Range_Param as WordRange, Type_Param as variant, Text_Param as variant, PreserveFormatting_Param as variant) as WordField
    Function Item(Index_Param as integer) as WordField
    Sub ToggleShowCodes()
    Sub Unlink()
    Function Update() as integer
    Sub UpdateSource()
End Class

Class WordField
inherits OLEObject
    dim Application as WordApplication
    dim Code as WordRange
    dim Creator as integer
    dim Data as string
    dim Index as integer
    dim InlineShape as WordInlineShape
    dim Kind as integer
    dim LinkFormat as WordLinkFormat
    dim Locked as boolean
    dim Next_ as WordField
    dim OLEFormat as WordOLEFormat
    dim Parent as OLEObject
    dim Previous as WordField
    dim Result as WordRange
    dim ShowCodes as boolean
    dim Type as integer
    Sub Copy()
    Sub Cut()
    Sub Delete()
    Sub DoClick()
    Sub Select_()
    Sub Unlink()
    Function Update() as boolean
    Sub UpdateSource()
End Class

Class WordBrowser
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Parent as OLEObject
    dim Target as integer
    Sub Next_()
    Sub Previous()
End Class

Class WordStyles
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Name_Param as string, Type_Param as variant) as WordStyle
    Function Item(Index_Param as variant) as WordStyle
End Class

Class WordStyle
inherits OLEObject
    dim Application as WordApplication
    dim AutomaticallyUpdate as boolean
    dim BaseStyle as variant
    dim Borders as WordBorders
    dim BuiltIn as boolean
    dim Creator as integer
    dim Description as string
    dim Font as WordFont
    dim Frame as WordFrame
    dim Hidden as boolean
    dim InUse as boolean
    dim LanguageID as integer
    dim LanguageIDFarEast as integer
    dim ListLevelNumber as integer
    dim ListTemplate as WordListTemplate
    dim NameLocal as string
    dim NextParagraphStyle as variant
    dim NoProofing as integer
    dim ParagraphFormat as WordParagraphFormat
    dim Parent as OLEObject
    dim Shading as WordShading
    dim Type as integer
    Sub Delete()
    Sub LinkToListTemplate(ListTemplate_Param as WordListTemplate, ListLevelNumber_Param as variant)
End Class

Class WordFrames
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Range_Param as WordRange) as WordFrame
    Sub Delete()
    Function Item(Index_Param as integer) as WordFrame
End Class

Class WordFrame
inherits OLEObject
    dim Application as WordApplication
    dim Borders as WordBorders
    dim Creator as integer
    dim Height as single
    dim HeightRule as integer
    dim HorizontalDistanceFromText as single
    dim HorizontalPosition as single
    dim LockAnchor as boolean
    dim Parent as OLEObject
    dim Range as WordRange
    dim RelativeHorizontalPosition as integer
    dim RelativeVerticalPosition as integer
    dim Shading as WordShading
    dim TextWrap as boolean
    dim VerticalDistanceFromText as single
    dim VerticalPosition as single
    dim Width as single
    dim WidthRule as integer
    Sub Copy()
    Sub Cut()
    Sub Delete()
    Sub Select_()
End Class

Class WordFormFields
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim Shaded as boolean
    dim _NewEnum as OLEObject
    Function Add(Range_Param as WordRange, Type_Param as integer) as WordFormField
    Function Item(Index_Param as variant) as WordFormField
End Class

Class WordFormField
inherits OLEObject
    dim Application as WordApplication
    dim CalculateOnExit as boolean
    dim CheckBox as WordCheckBox
    dim Creator as integer
    dim DropDown as WordDropDown
    dim Enabled as boolean
    dim EntryMacro as string
    dim ExitMacro as string
    dim HelpText as string
    dim Name as string
    dim Next_ as WordFormField
    dim OwnHelp as boolean
    dim OwnStatus as boolean
    dim Parent as OLEObject
    dim Previous as WordFormField
    dim Range as WordRange
    dim Result as string
    dim StatusText as string
    dim TextInput as WordTextInput
    dim Type as integer
    Sub Copy()
    Sub Cut()
    Sub Delete()
    Sub Select_()
End Class

Class WordTextInput
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Default as string
    dim Format as string
    dim Parent as OLEObject
    dim Type as integer
    dim Valid as boolean
    dim Width as integer
    Sub Clear()
    Sub EditType(Type_Param as integer, Default_Param as variant, Format_Param as variant, Enabled_Param as variant)
End Class

Class WordCheckBox
inherits OLEObject
    dim Application as WordApplication
    dim AutoSize as boolean
    dim Creator as integer
    dim Default as boolean
    dim Parent as OLEObject
    dim Size as single
    dim Valid as boolean
    dim Value as boolean
End Class

Class WordDropDown
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Default as integer
    dim ListEntries as WordListEntries
    dim Parent as OLEObject
    dim Valid as boolean
    dim Value as integer
End Class

Class WordListEntries
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Name_Param as string, Index_Param as variant) as WordListEntry
    Sub Clear()
    Function Item(Index_Param as variant) as WordListEntry
End Class

Class WordListEntry
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Index as integer
    dim Name as string
    dim Parent as OLEObject
    Sub Delete()
End Class

Class WordTablesOfFigures
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Format as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Range_Param as WordRange, Caption_Param as variant, IncludeLabel_Param as variant, UseHeadingStyles_Param as variant, UpperHeadingLevel_Param as variant, LowerHeadingLevel_Param as variant, UseFields_Param as variant, TableID_Param as variant, RightAlignPageNumbers_Param as variant, IncludePageNumbers_Param as variant, AddedStyles_Param as variant, UseHyperlinks_Param as variant, HidePageNumbersInWeb_Param as variant) as WordTableOfFigures
    Function AddOld(Range_Param as WordRange, Caption_Param as variant, IncludeLabel_Param as variant, UseHeadingStyles_Param as variant, UpperHeadingLevel_Param as variant, LowerHeadingLevel_Param as variant, UseFields_Param as variant, TableID_Param as variant, RightAlignPageNumbers_Param as variant, IncludePageNumbers_Param as variant, AddedStyles_Param as variant) as WordTableOfFigures
    Function Item(Index_Param as integer) as WordTableOfFigures
    Function MarkEntry(Range_Param as WordRange, Entry_Param as variant, EntryAutoText_Param as variant, TableID_Param as variant, Level_Param as variant) as WordField
End Class

Class WordTableOfFigures
inherits OLEObject
    dim Application as WordApplication
    dim Caption as string
    dim Creator as integer
    dim HeadingStyles as WordHeadingStyles
    dim HidePageNumbersInWeb as boolean
    dim IncludeLabel as boolean
    dim IncludePageNumbers as boolean
    dim LowerHeadingLevel as integer
    dim Parent as OLEObject
    dim Range as WordRange
    dim RightAlignPageNumbers as boolean
    dim TabLeader as integer
    dim TableID as string
    dim UpperHeadingLevel as integer
    dim UseFields as boolean
    dim UseHeadingStyles as boolean
    dim UseHyperlinks as boolean
    Sub Delete()
    Sub Update()
    Sub UpdatePageNumbers()
End Class

Class WordMailMerge
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim DataSource as WordMailMergeDataSource
    dim Destination as integer
    dim Fields as WordMailMergeFields
    dim MailAddressFieldName as string
    dim MailAsAttachment as boolean
    dim MailSubject as string
    dim MainDocumentType as integer
    dim Parent as OLEObject
    dim State as integer
    dim SuppressBlankLines as boolean
    dim ViewMailMergeFieldCodes as integer
    Sub Check()
    Sub CreateDataSource(Name_Param as variant, PasswordDocument_Param as variant, WritePasswordDocument_Param as variant, HeaderRecord_Param as variant, MSQuery_Param as variant, SQLStatement_Param as variant, SQLStatement1_Param as variant, Connection_Param as variant, LinkToSource_Param as variant)
    Sub CreateHeaderSource(Name_Param as string, PasswordDocument_Param as variant, WritePasswordDocument_Param as variant, HeaderRecord_Param as variant)
    Sub EditDataSource()
    Sub EditHeaderSource()
    Sub EditMainDocument()
    Sub Execute(Pause_Param as variant)
    Sub OpenDataSource(Name_Param as string, Format_Param as variant, ConfirmConversions_Param as variant, ReadOnly_Param as variant, LinkToSource_Param as variant, AddToRecentFiles_Param as variant, PasswordDocument_Param as variant, PasswordTemplate_Param as variant, Revert_Param as variant, WritePasswordDocument_Param as variant, WritePasswordTemplate_Param as variant, Connection_Param as variant, SQLStatement_Param as variant, SQLStatement1_Param as variant)
    Sub OpenHeaderSource(Name_Param as string, Format_Param as variant, ConfirmConversions_Param as variant, ReadOnly_Param as variant, AddToRecentFiles_Param as variant, PasswordDocument_Param as variant, PasswordTemplate_Param as variant, Revert_Param as variant, WritePasswordDocument_Param as variant, WritePasswordTemplate_Param as variant)
    Sub UseAddressBook(Type_Param as string)
End Class

Class WordMailMergeFields
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Range_Param as WordRange, Name_Param as string) as WordMailMergeField
    Function AddAsk(Range_Param as WordRange, Name_Param as string, Prompt_Param as variant, DefaultAskText_Param as variant, AskOnce_Param as variant) as WordMailMergeField
    Function AddFillIn(Range_Param as WordRange, Prompt_Param as variant, DefaultFillInText_Param as variant, AskOnce_Param as variant) as WordMailMergeField
    Function AddIf(Range_Param as WordRange, MergeField_Param as string, Comparison_Param as integer, CompareTo_Param as variant, TrueAutoText_Param as variant, TrueText_Param as variant, FalseAutoText_Param as variant, FalseText_Param as variant) as WordMailMergeField
    Function AddMergeRec(Range_Param as WordRange) as WordMailMergeField
    Function AddMergeSeq(Range_Param as WordRange) as WordMailMergeField
    Function AddNext(Range_Param as WordRange) as WordMailMergeField
    Function AddNextIf(Range_Param as WordRange, MergeField_Param as string, Comparison_Param as integer, CompareTo_Param as variant) as WordMailMergeField
    Function AddSet(Range_Param as WordRange, Name_Param as string, ValueText_Param as variant, ValueAutoText_Param as variant) as WordMailMergeField
    Function AddSkipIf(Range_Param as WordRange, MergeField_Param as string, Comparison_Param as integer, CompareTo_Param as variant) as WordMailMergeField
    Function Item(Index_Param as integer) as WordMailMergeField
End Class

Class WordMailMergeField
inherits OLEObject
    dim Application as WordApplication
    dim Code as WordRange
    dim Creator as integer
    dim Locked as boolean
    dim Next_ as WordMailMergeField
    dim Parent as OLEObject
    dim Previous as WordMailMergeField
    dim Type as integer
    Sub Copy()
    Sub Cut()
    Sub Delete()
    Sub Select_()
End Class

Class WordMailMergeDataSource
inherits OLEObject
    dim ActiveRecord as integer
    dim Application as WordApplication
    dim ConnectString as string
    dim Creator as integer
    dim DataFields as WordMailMergeDataFields
    dim FieldNames as WordMailMergeFieldNames
    dim FirstRecord as integer
    dim HeaderSourceName as string
    dim HeaderSourceType as integer
    dim LastRecord as integer
    dim Name as string
    dim Parent as OLEObject
    dim QueryString as string
    dim Type as integer
    Function FindRecord(FindText_Param as string, Field_Param as string) as boolean
End Class

Class WordMailMergeFieldNames
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(Index_Param as variant) as WordMailMergeFieldName
End Class

Class WordMailMergeFieldName
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Index as integer
    dim Name as string
    dim Parent as OLEObject
End Class

Class WordMailMergeDataFields
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(Index_Param as variant) as WordMailMergeDataField
End Class

Class WordMailMergeDataField
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Index as integer
    dim Name as string
    dim Parent as OLEObject
    dim Value as string
End Class

Class WordEnvelope
inherits OLEObject
    dim Address as WordRange
    dim AddressFromLeft as single
    dim AddressFromTop as single
    dim AddressStyle as WordStyle
    dim Application as WordApplication
    dim Creator as integer
    dim DefaultFaceUp as boolean
    dim DefaultHeight as single
    dim DefaultOmitReturnAddress as boolean
    dim DefaultOrientation as integer
    dim DefaultPrintBarCode as boolean
    dim DefaultPrintFIMA as boolean
    dim DefaultSize as string
    dim DefaultWidth as single
    dim FeedSource as integer
    dim Parent as OLEObject
    dim ReturnAddress as WordRange
    dim ReturnAddressFromLeft as single
    dim ReturnAddressFromTop as single
    dim ReturnAddressStyle as WordStyle
    Sub Insert(ExtractAddress_Param as variant, Address_Param as variant, AutoText_Param as variant, OmitReturnAddress_Param as variant, ReturnAddress_Param as variant, ReturnAutoText_Param as variant, PrintBarCode_Param as variant, PrintFIMA_Param as variant, Size_Param as variant, Height_Param as variant, Width_Param as variant, FeedSource_Param as variant, AddressFromLeft_Param as variant, AddressFromTop_Param as variant, ReturnAddressFromLeft_Param as variant, ReturnAddressFromTop_Param as variant, DefaultFaceUp_Param as variant, DefaultOrientation_Param as variant)
    Sub PrintOut(ExtractAddress_Param as variant, Address_Param as variant, AutoText_Param as variant, OmitReturnAddress_Param as variant, ReturnAddress_Param as variant, ReturnAutoText_Param as variant, PrintBarCode_Param as variant, PrintFIMA_Param as variant, Size_Param as variant, Height_Param as variant, Width_Param as variant, FeedSource_Param as variant, AddressFromLeft_Param as variant, AddressFromTop_Param as variant, ReturnAddressFromLeft_Param as variant, ReturnAddressFromTop_Param as variant, DefaultFaceUp_Param as variant, DefaultOrientation_Param as variant)
    Sub UpdateDocument()
End Class

Class WordMailingLabel
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim CustomLabels as WordCustomLabels
    dim DefaultLabelName as string
    dim DefaultLaserTray as integer
    dim DefaultPrintBarCode as boolean
    dim Parent as OLEObject
    Function CreateNewDocument(Name_Param as variant, Address_Param as variant, AutoText_Param as variant, ExtractAddress_Param as variant, LaserTray_Param as variant) as WordDocument
    Sub PrintOut(Name_Param as variant, Address_Param as variant, ExtractAddress_Param as variant, LaserTray_Param as variant, SingleLabel_Param as variant, Row_Param as variant, Column_Param as variant)
End Class

Class WordCustomLabels
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Name_Param as string, DotMatrix_Param as variant) as WordCustomLabel
    Function Item(Index_Param as variant) as WordCustomLabel
End Class

Class WordCustomLabel
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim DotMatrix as boolean
    dim Height as single
    dim HorizontalPitch as single
    dim Index as integer
    dim Name as string
    dim NumberAcross as integer
    dim NumberDown as integer
    dim PageSize as integer
    dim Parent as OLEObject
    dim SideMargin as single
    dim TopMargin as single
    dim Valid as boolean
    dim VerticalPitch as single
    dim Width as single
    Sub Delete()
End Class

Class WordTablesOfContents
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Format as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Range_Param as WordRange, UseHeadingStyles_Param as variant, UpperHeadingLevel_Param as variant, LowerHeadingLevel_Param as variant, UseFields_Param as variant, TableID_Param as variant, RightAlignPageNumbers_Param as variant, IncludePageNumbers_Param as variant, AddedStyles_Param as variant, UseHyperlinks_Param as variant, HidePageNumbersInWeb_Param as variant) as WordTableOfContents
    Function AddOld(Range_Param as WordRange, UseHeadingStyles_Param as variant, UpperHeadingLevel_Param as variant, LowerHeadingLevel_Param as variant, UseFields_Param as variant, TableID_Param as variant, RightAlignPageNumbers_Param as variant, IncludePageNumbers_Param as variant, AddedStyles_Param as variant) as WordTableOfContents
    Function Item(Index_Param as integer) as WordTableOfContents
    Function MarkEntry(Range_Param as WordRange, Entry_Param as variant, EntryAutoText_Param as variant, TableID_Param as variant, Level_Param as variant) as WordField
End Class

Class WordTableOfContents
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim HeadingStyles as WordHeadingStyles
    dim HidePageNumbersInWeb as boolean
    dim IncludePageNumbers as boolean
    dim LowerHeadingLevel as integer
    dim Parent as OLEObject
    dim Range as WordRange
    dim RightAlignPageNumbers as boolean
    dim TabLeader as integer
    dim TableID as string
    dim UpperHeadingLevel as integer
    dim UseFields as boolean
    dim UseHeadingStyles as boolean
    dim UseHyperlinks as boolean
    Sub Delete()
    Sub Update()
    Sub UpdatePageNumbers()
End Class

Class WordTablesOfAuthorities
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Format as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Range_Param as WordRange, Category_Param as variant, Bookmark_Param as variant, Passim_Param as variant, KeepEntryFormatting_Param as variant, Separator_Param as variant, IncludeSequenceName_Param as variant, EntrySeparator_Param as variant, PageRangeSeparator_Param as variant, IncludeCategoryHeader_Param as variant, PageNumberSeparator_Param as variant) as WordTableOfAuthorities
    Function Item(Index_Param as integer) as WordTableOfAuthorities
    Sub MarkAllCitations(ShortCitation_Param as string, LongCitation_Param as variant, LongCitationAutoText_Param as variant, Category_Param as variant)
    Function MarkCitation(Range_Param as WordRange, ShortCitation_Param as string, LongCitation_Param as variant, LongCitationAutoText_Param as variant, Category_Param as variant) as WordField
    Sub NextCitation(ShortCitation_Param as string)
End Class

Class WordTableOfAuthorities
inherits OLEObject
    dim Application as WordApplication
    dim Bookmark as string
    dim Category as integer
    dim Creator as integer
    dim EntrySeparator as string
    dim IncludeCategoryHeader as boolean
    dim IncludeSequenceName as string
    dim KeepEntryFormatting as boolean
    dim PageNumberSeparator as string
    dim PageRangeSeparator as string
    dim Parent as OLEObject
    dim Passim as boolean
    dim Range as WordRange
    dim Separator as string
    dim TabLeader as integer
    Sub Delete()
    Sub Update()
End Class

Class WordDialogs
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(Index_Param as integer) as WordDialog
End Class

Class WordDialog
inherits OLEObject
    dim Application as WordApplication
    dim CommandName as string
    dim Creator as integer
    dim DefaultTab as integer
    dim Parent as OLEObject
    dim Type as integer
    Function Display(TimeOut_Param as variant) as integer
    Sub Execute()
    Function Show(TimeOut_Param as variant) as integer
    Sub Update()
End Class

Class WordPageSetup
inherits OLEObject
    dim Application as WordApplication
    dim BottomMargin as single
    dim CharsLine as single
    dim Creator as integer
    dim DifferentFirstPageHeaderFooter as integer
    dim FirstPageTray as integer
    dim FooterDistance as single
    dim Gutter as single
    dim GutterOnTop as boolean
    dim GutterPos as integer
    dim GutterStyle as integer
    dim HeaderDistance as single
    dim LayoutMode as integer
    dim LeftMargin as single
    dim LineNumbering as WordLineNumbering
    dim LinesPage as single
    dim MirrorMargins as integer
    dim OddAndEvenPagesHeaderFooter as integer
    dim Orientation as integer
    dim OtherPagesTray as integer
    dim PageHeight as single
    dim PageWidth as single
    dim PaperSize as integer
    dim Parent as OLEObject
    dim RightMargin as single
    dim SectionDirection as integer
    dim SectionStart as integer
    dim ShowGrid as boolean
    dim SuppressEndnotes as integer
    dim TextColumns as WordTextColumns
    dim TopMargin as single
    dim TwoPagesOnOne as boolean
    dim VerticalAlignment as integer
    Sub SetAsTemplateDefault()
    Sub TogglePortrait()
End Class

Class WordLineNumbering
inherits OLEObject
    dim Active as integer
    dim Application as WordApplication
    dim CountBy as integer
    dim Creator as integer
    dim DistanceFromText as single
    dim Parent as OLEObject
    dim RestartMode as integer
    dim StartingNumber as integer
End Class

Class WordTextColumns
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim EvenlySpaced as integer
    dim FlowDirection as integer
    dim LineBetween as integer
    dim Parent as OLEObject
    dim Spacing as single
    dim Width as single
    dim _NewEnum as OLEObject
    Function Add(Width_Param as variant, Spacing_Param as variant, EvenlySpaced_Param as variant) as WordTextColumn
    Function Item(Index_Param as integer) as WordTextColumn
    Sub SetCount(NumColumns_Param as integer)
End Class

Class WordTextColumn
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Parent as OLEObject
    dim SpaceAfter as single
    dim Width as single
End Class

Class WordSelection
inherits OLEObject
    dim Active as boolean
    dim Application as WordApplication
    dim BookmarkID as integer
    dim Bookmarks as WordBookmarks
    dim Borders as WordBorders
    dim Cells as WordCells
    dim Characters as WordCharacters
    dim Columns as WordColumns
    dim ColumnSelectMode as boolean
    dim Comments as WordComments
    dim Creator as integer
    dim Document as WordDocument
    dim End_ as integer
    dim Endnotes as WordEndnotes
    dim ExtendMode as boolean
    dim Fields as WordFields
    dim Find as WordFind
    dim FitTextWidth as single
    dim Flags as integer
    dim Font as WordFont
    dim Footnotes as WordFootnotes
    dim FormattedText as WordRange
    dim FormFields as WordFormFields
    dim Frames as WordFrames
    dim HeaderFooter as WordHeaderFooter
    dim Hyperlinks as WordHyperlinks
    dim InlineShapes as WordInlineShapes
    dim IPAtEndOfLine as boolean
    dim IsEndOfRowMark as boolean
    dim LanguageDetected as boolean
    dim LanguageID as integer
    dim LanguageIDFarEast as integer
    dim LanguageIDOther as integer
    dim NoProofing as integer
    dim Orientation as integer
    dim PageSetup as WordPageSetup
    dim ParagraphFormat as WordParagraphFormat
    dim Paragraphs as WordParagraphs
    dim Parent as OLEObject
    dim PreviousBookmarkID as integer
    dim Range as WordRange
    dim Rows as WordRows
    dim Sections as WordSections
    dim Sentences as WordSentences
    dim Shading as WordShading
    dim ShapeRange as WordShapeRange
    dim Start as integer
    dim StartIsActive as boolean
    dim StoryLength as integer
    dim StoryType as integer
    dim Style as variant
    dim Tables as WordTables
    dim Text as string
    dim TopLevelTables as WordTables
    dim Type as integer
    dim Words as WordWords
    Sub BoldRun()
    Function Calculate() as single
    Sub Collapse(Direction_Param as variant)
    Function ConvertToTable(Separator_Param as variant, NumRows_Param as variant, NumColumns_Param as variant, InitialColumnWidth_Param as variant, Format_Param as variant, ApplyBorders_Param as variant, ApplyShading_Param as variant, ApplyFont_Param as variant, ApplyColor_Param as variant, ApplyHeadingRows_Param as variant, ApplyLastRow_Param as variant, ApplyFirstColumn_Param as variant, ApplyLastColumn_Param as variant, AutoFit_Param as variant, AutoFitBehavior_Param as variant, DefaultTableBehavior_Param as variant) as WordTable
    Function ConvertToTableOld(Separator_Param as variant, NumRows_Param as variant, NumColumns_Param as variant, InitialColumnWidth_Param as variant, Format_Param as variant, ApplyBorders_Param as variant, ApplyShading_Param as variant, ApplyFont_Param as variant, ApplyColor_Param as variant, ApplyHeadingRows_Param as variant, ApplyLastRow_Param as variant, ApplyFirstColumn_Param as variant, ApplyLastColumn_Param as variant, AutoFit_Param as variant) as WordTable
    Sub Copy()
    Sub CopyAsPicture()
    Sub CopyFormat()
    Function CreateAutoTextEntry(Name_Param as string, StyleName_Param as string) as WordAutoTextEntry
    Sub CreateTextbox()
    Sub Cut()
    Function Delete(Unit_Param as variant, Count_Param as variant) as integer
    Sub DetectLanguage()
    Function EndKey(Unit_Param as variant, Extend_Param as variant) as integer
    Function EndOf(Unit_Param as variant, Extend_Param as variant) as integer
    Sub EscapeKey()
    Function Expand(Unit_Param as variant) as integer
    Sub Extend(Character_Param as variant)
    Function GoTo_(What_Param as variant, Which_Param as variant, Count_Param as variant, Name_Param as variant) as WordRange
    Function GoToNext(What_Param as integer) as WordRange
    Function GoToPrevious(What_Param as integer) as WordRange
    Function HomeKey(Unit_Param as variant, Extend_Param as variant) as integer
    Function Information(Type_Param as integer) as variant
    Function InRange(Range_Param as WordRange) as boolean
    Sub InsertAfter(Text_Param as string)
    Sub InsertBefore(Text_Param as string)
    Sub InsertBreak(Type_Param as variant)
    Sub InsertCaption(Label_Param as variant, Title_Param as variant, TitleAutoText_Param as variant, Position_Param as variant)
    Sub InsertCells(ShiftCells_Param as variant)
    Sub InsertColumns()
    Sub InsertColumnsRight()
    Sub InsertCrossReference(ReferenceType_Param as variant, ReferenceKind_Param as integer, ReferenceItem_Param as variant, InsertAsHyperlink_Param as variant, IncludePosition_Param as variant)
    Sub InsertDateTime(DateTimeFormat_Param as variant, InsertAsField_Param as variant, InsertAsFullWidth_Param as variant, DateLanguage_Param as variant, CalendarType_Param as variant)
    Sub InsertDateTimeOld(DateTimeFormat_Param as variant, InsertAsField_Param as variant, InsertAsFullWidth_Param as variant)
    Sub InsertFile(FileName_Param as string, Range_Param as variant, ConfirmConversions_Param as variant, Link_Param as variant, Attachment_Param as variant)
    Sub InsertFormula(Formula_Param as variant, NumberFormat_Param as variant)
    Sub InsertParagraph()
    Sub InsertParagraphAfter()
    Sub InsertParagraphBefore()
    Sub InsertRows(NumRows_Param as variant)
    Sub InsertRowsAbove(NumRows_Param as variant)
    Sub InsertRowsBelow(NumRows_Param as variant)
    Sub InsertSymbol(CharacterNumber_Param as integer, Font_Param as variant, Unicode_Param as variant, Bias_Param as variant)
    Function InStory(Range_Param as WordRange) as boolean
    Function IsEqual(Range_Param as WordRange) as boolean
    Sub ItalicRun()
    Sub LtrPara()
    Sub LtrRun()
    Function Move(Unit_Param as variant, Count_Param as variant) as integer
    Function MoveDown(Unit_Param as variant, Count_Param as variant, Extend_Param as variant) as integer
    Function MoveEnd(Unit_Param as variant, Count_Param as variant) as integer
    Function MoveEndUntil(Cset_Param as variant, Count_Param as variant) as integer
    Function MoveEndWhile(Cset_Param as variant, Count_Param as variant) as integer
    Function MoveLeft(Unit_Param as variant, Count_Param as variant, Extend_Param as variant) as integer
    Function MoveRight(Unit_Param as variant, Count_Param as variant, Extend_Param as variant) as integer
    Function MoveStart(Unit_Param as variant, Count_Param as variant) as integer
    Function MoveStartUntil(Cset_Param as variant, Count_Param as variant) as integer
    Function MoveStartWhile(Cset_Param as variant, Count_Param as variant) as integer
    Function MoveUntil(Cset_Param as variant, Count_Param as variant) as integer
    Function MoveUp(Unit_Param as variant, Count_Param as variant, Extend_Param as variant) as integer
    Function MoveWhile(Cset_Param as variant, Count_Param as variant) as integer
    Function Next_(Unit_Param as variant, Count_Param as variant) as WordRange
    Function NextField() as WordField
    Function NextRevision(Wrap_Param as variant) as WordRevision
    Sub NextSubdocument()
    Sub Paste()
    Sub PasteAsNestedTable()
    Sub PasteFormat()
    Sub PasteSpecial(IconIndex_Param as variant, Link_Param as variant, Placement_Param as variant, DisplayAsIcon_Param as variant, DataType_Param as variant, IconFileName_Param as variant, IconLabel_Param as variant)
    Function Previous(Unit_Param as variant, Count_Param as variant) as WordRange
    Function PreviousField() as WordField
    Function PreviousRevision(Wrap_Param as variant) as WordRevision
    Sub PreviousSubdocument()
    Sub RtlPara()
    Sub RtlRun()
    Sub Select_()
    Sub SelectCell()
    Sub SelectColumn()
    Sub SelectCurrentAlignment()
    Sub SelectCurrentColor()
    Sub SelectCurrentFont()
    Sub SelectCurrentIndent()
    Sub SelectCurrentSpacing()
    Sub SelectCurrentTabs()
    Sub SelectRow()
    Sub SetRange(Start_Param as integer, End_Param as integer)
    Sub Shrink()
    Sub Sort(ExcludeHeader_Param as variant, FieldNumber_Param as variant, SortFieldType_Param as variant, SortOrder_Param as variant, FieldNumber2_Param as variant, SortFieldType2_Param as variant, SortOrder2_Param as variant, FieldNumber3_Param as variant, SortFieldType3_Param as variant, SortOrder3_Param as variant, SortColumn_Param as variant, Separator_Param as variant, CaseSensitive_Param as variant, BidiSort_Param as variant, IgnoreThe_Param as variant, IgnoreKashida_Param as variant, IgnoreDiacritics_Param as variant, IgnoreHe_Param as variant, LanguageID_Param as variant)
    Sub SortAscending()
    Sub SortDescending()
    Sub SortOld(ExcludeHeader_Param as variant, FieldNumber_Param as variant, SortFieldType_Param as variant, SortOrder_Param as variant, FieldNumber2_Param as variant, SortFieldType2_Param as variant, SortOrder2_Param as variant, FieldNumber3_Param as variant, SortFieldType3_Param as variant, SortOrder3_Param as variant, SortColumn_Param as variant, Separator_Param as variant, CaseSensitive_Param as variant, LanguageID_Param as variant)
    Sub SplitTable()
    Function StartOf(Unit_Param as variant, Extend_Param as variant) as integer
    Sub TypeBackspace()
    Sub TypeParagraph()
    Sub TypeText(Text_Param as string)
    Sub WholeStory()
End Class

Class WordTablesOfAuthoritiesCategories
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(Index_Param as variant) as WordTableOfAuthoritiesCategory
End Class

Class WordTableOfAuthoritiesCategory
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Index as integer
    dim Name as string
    dim Parent as OLEObject
End Class

Class WordCaptionLabels
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Name_Param as string) as WordCaptionLabel
    Function Item(Index_Param as variant) as WordCaptionLabel
End Class

Class WordCaptionLabel
inherits OLEObject
    dim Application as WordApplication
    dim BuiltIn as boolean
    dim ChapterStyleLevel as integer
    dim Creator as integer
    dim ID as integer
    dim IncludeChapterNumber as boolean
    dim Name as string
    dim NumberStyle as integer
    dim Parent as OLEObject
    dim Position as integer
    dim Separator as integer
    Sub Delete()
End Class

Class WordAutoCaptions
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Sub CancelAutoInsert()
    Function Item(Index_Param as variant) as WordAutoCaption
End Class

Class WordAutoCaption
inherits OLEObject
    dim Application as WordApplication
    dim AutoInsert as boolean
    dim CaptionLabel as variant
    dim Creator as integer
    dim Index as integer
    dim Name as string
    dim Parent as OLEObject
End Class

Class WordIndexes
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Format as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Range_Param as WordRange, HeadingSeparator_Param as variant, RightAlignPageNumbers_Param as variant, Type_Param as variant, NumberOfColumns_Param as variant, AccentedLetters_Param as variant, SortBy_Param as variant, IndexLanguage_Param as variant) as WordIndex
    Function AddOld(Range_Param as WordRange, HeadingSeparator_Param as variant, RightAlignPageNumbers_Param as variant, Type_Param as variant, NumberOfColumns_Param as variant, AccentedLetters_Param as variant) as WordIndex
    Sub AutoMarkEntries(ConcordanceFileName_Param as string)
    Function Item(Index_Param as integer) as WordIndex
    Sub MarkAllEntries(Range_Param as WordRange, Entry_Param as variant, EntryAutoText_Param as variant, CrossReference_Param as variant, CrossReferenceAutoText_Param as variant, BookmarkName_Param as variant, Bold_Param as variant, Italic_Param as variant)
    Function MarkEntry(Range_Param as WordRange, Entry_Param as variant, EntryAutoText_Param as variant, CrossReference_Param as variant, CrossReferenceAutoText_Param as variant, BookmarkName_Param as variant, Bold_Param as variant, Italic_Param as variant, Reading_Param as variant) as WordField
End Class

Class WordIndex
inherits OLEObject
    dim AccentedLetters as boolean
    dim Application as WordApplication
    dim Creator as integer
    dim Filter as integer
    dim HeadingSeparator as integer
    dim IndexLanguage as integer
    dim NumberOfColumns as integer
    dim Parent as OLEObject
    dim Range as WordRange
    dim RightAlignPageNumbers as boolean
    dim SortBy as integer
    dim TabLeader as integer
    dim Type as integer
    Sub Delete()
    Sub Update()
End Class

Class WordAddIn
inherits OLEObject
    dim Application as WordApplication
    dim Autoload as boolean
    dim Compiled as boolean
    dim Creator as integer
    dim Index as integer
    dim Installed as boolean
    dim Name as string
    dim Parent as OLEObject
    dim Path as string
    Sub Delete()
End Class

Class WordAddIns
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(FileName_Param as string, Install_Param as variant) as WordAddIn
    Function Item(Index_Param as variant) as WordAddIn
    Sub Unload(RemoveFromList_Param as boolean)
End Class

Class WordRevisions
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Sub AcceptAll()
    Function Item(Index_Param as integer) as WordRevision
    Sub RejectAll()
End Class

Class WordRevision
inherits OLEObject
    dim Application as WordApplication
    dim Author as string
    dim Creator as integer
    dim Date as variant
    dim Index as integer
    dim Parent as OLEObject
    dim Range as WordRange
    dim Type as integer
    Sub Accept()
    Sub Reject()
End Class

Class WordTask
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Height as integer
    dim Left as integer
    dim Name as string
    dim Parent as OLEObject
    dim Top as integer
    dim Visible as boolean
    dim Width as integer
    dim WindowState as integer
    Sub Activate(Wait_Param as variant)
    Sub Close()
    Sub Move(Left_Param as integer, Top_Param as integer)
    Sub Resize(Width_Param as integer, Height_Param as integer)
    Sub SendWindowMessage(Message_Param as integer, wParam_Param as integer, lParam_Param as integer)
End Class

Class WordTasks
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Exists(Name_Param as string) as boolean
    Sub ExitWindows()
    Function Item(Index_Param as variant) as WordTask
End Class

Class WordHeadersFooters
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(Index_Param as integer) as WordHeaderFooter
End Class

Class WordHeaderFooter
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Exists as boolean
    dim Index as integer
    dim IsHeader as boolean
    dim LinkToPrevious as boolean
    dim PageNumbers as WordPageNumbers
    dim Parent as OLEObject
    dim Range as WordRange
    dim Shapes as WordShapes
End Class

Class WordPageNumbers
inherits OLEObject
    dim Application as WordApplication
    dim ChapterPageSeparator as integer
    dim Count as integer
    dim Creator as integer
    dim DoubleQuote as boolean
    dim HeadingLevelForChapter as integer
    dim IncludeChapterNumber as boolean
    dim NumberStyle as integer
    dim Parent as OLEObject
    dim RestartNumberingAtSection as boolean
    dim ShowFirstPageNumber as boolean
    dim StartingNumber as integer
    dim _NewEnum as OLEObject
    Function Add(PageNumberAlignment_Param as variant, FirstPage_Param as variant) as WordPageNumber
    Function Item(Index_Param as integer) as WordPageNumber
End Class

Class WordPageNumber
inherits OLEObject
    dim Alignment as integer
    dim Application as WordApplication
    dim Creator as integer
    dim Index as integer
    dim Parent as OLEObject
    Sub Copy()
    Sub Cut()
    Sub Delete()
    Sub Select_()
End Class

Class WordSubdocuments
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Expanded as boolean
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function AddFromFile(Name_Param as variant, ConfirmConversions_Param as variant, ReadOnly_Param as variant, PasswordDocument_Param as variant, PasswordTemplate_Param as variant, Revert_Param as variant, WritePasswordDocument_Param as variant, WritePasswordTemplate_Param as variant) as WordSubdocument
    Function AddFromRange(Range_Param as WordRange) as WordSubdocument
    Sub Delete()
    Function Item(Index_Param as integer) as WordSubdocument
    Sub Merge(FirstSubdocument_Param as variant, LastSubdocument_Param as variant)
    Sub Select_()
End Class

Class WordSubdocument
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim HasFile as boolean
    dim Level as integer
    dim Locked as boolean
    dim Name as string
    dim Parent as OLEObject
    dim Path as string
    dim Range as WordRange
    Sub Delete()
    Function Open() as WordDocument
    Sub Split(Range_Param as WordRange)
End Class

Class WordHeadingStyles
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Style_Param as variant, Level_Param as integer) as WordHeadingStyle
    Function Item(Index_Param as integer) as WordHeadingStyle
End Class

Class WordHeadingStyle
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Level as integer
    dim Parent as OLEObject
    dim Style as variant
    Sub Delete()
End Class

Class WordStoryRanges
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(Index_Param as integer) as WordRange
End Class

Class WordListLevel
inherits OLEObject
    dim Alignment as integer
    dim Application as WordApplication
    dim Creator as integer
    dim Font as WordFont
    dim Index as integer
    dim LinkedStyle as string
    dim NumberFormat as string
    dim NumberPosition as single
    dim NumberStyle as integer
    dim Parent as OLEObject
    dim ResetOnHigher as integer
    dim ResetOnHigherOld as boolean
    dim StartAt as integer
    dim TabPosition as single
    dim TextPosition as single
    dim TrailingCharacter as integer
End Class

Class WordListLevels
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(Index_Param as integer) as WordListLevel
End Class

Class WordListTemplate
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim ListLevels as WordListLevels
    dim Name as string
    dim OutlineNumbered as boolean
    dim Parent as OLEObject
    Function Convert(Level_Param as variant) as WordListTemplate
End Class

Class WordListTemplates
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(OutlineNumbered_Param as variant, Name_Param as variant) as WordListTemplate
    Function Item(Index_Param as variant) as WordListTemplate
End Class

Class WordListParagraphs
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(Index_Param as integer) as WordParagraph
End Class

Class WordList
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim ListParagraphs as WordListParagraphs
    dim Parent as OLEObject
    dim Range as WordRange
    dim SingleListTemplate as boolean
    Sub ApplyListTemplate(ListTemplate_Param as WordListTemplate, ContinuePreviousList_Param as variant, DefaultListBehavior_Param as variant)
    Sub ApplyListTemplateOld(ListTemplate_Param as WordListTemplate, ContinuePreviousList_Param as variant)
    Function CanContinuePreviousList(ListTemplate_Param as WordListTemplate) as integer
    Sub ConvertNumbersToText(NumberType_Param as variant)
    Function CountNumberedItems(NumberType_Param as variant, Level_Param as variant) as integer
    Sub RemoveNumbers(NumberType_Param as variant)
End Class

Class WordLists
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(Index_Param as integer) as WordList
End Class

Class WordListGallery
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim ListTemplates as WordListTemplates
    dim Parent as OLEObject
    Function Modified(Index_Param as integer) as boolean
    Sub Reset(Index_Param as integer)
End Class

Class WordListGalleries
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(Index_Param as integer) as WordListGallery
End Class

Class WordKeyBindings
inherits OLEObject
    dim Application as WordApplication
    dim Context as OLEObject
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(KeyCategory_Param as integer, Command_Param as string, KeyCode_Param as integer, KeyCode2_Param as variant, CommandParameter_Param as variant) as WordKeyBinding
    Sub ClearAll()
    Function Item(Index_Param as integer) as WordKeyBinding
    Function Key(KeyCode_Param as integer, KeyCode2_Param as variant) as WordKeyBinding
End Class

Class WordKeysBoundTo
inherits OLEObject
    dim Application as WordApplication
    dim Command as string
    dim CommandParameter as string
    dim Context as OLEObject
    dim Count as integer
    dim Creator as integer
    dim KeyCategory as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(Index_Param as integer) as WordKeyBinding
    Function Key(KeyCode_Param as integer, KeyCode2_Param as variant) as WordKeyBinding
End Class

Class WordKeyBinding
inherits OLEObject
    dim Application as WordApplication
    dim Command as string
    dim CommandParameter as string
    dim Context as OLEObject
    dim Creator as integer
    dim KeyCategory as integer
    dim KeyCode as integer
    dim KeyCode2 as integer
    dim KeyString as string
    dim Parent as OLEObject
    dim Protected_ as boolean
    Sub Clear()
    Sub Disable()
    Sub Execute()
    Sub Rebind(KeyCategory_Param as integer, Command_Param as string, CommandParameter_Param as variant)
End Class

Class WordFileConverter
inherits OLEObject
    dim Application as WordApplication
    dim CanOpen as boolean
    dim CanSave as boolean
    dim ClassName as string
    dim Creator as integer
    dim Extensions as string
    dim FormatName as string
    dim Name as string
    dim OpenFormat as integer
    dim Parent as OLEObject
    dim Path as string
    dim SaveFormat as integer
End Class

Class WordFileConverters
inherits OLEObject
    dim Application as WordApplication
    dim ConvertMacWordChevrons as integer
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(Index_Param as variant) as WordFileConverter
End Class

Class WordSynonymInfo
inherits OLEObject
    dim AntonymList as variant
    dim Application as WordApplication
    dim Creator as integer
    dim Found as boolean
    dim MeaningCount as integer
    dim MeaningList as variant
    dim Parent as OLEObject
    dim PartOfSpeechList as variant
    dim RelatedExpressionList as variant
    dim RelatedWordList as variant
    dim Word as string
    Function SynonymList(Meaning_Param as variant) as variant
End Class

Class WordHyperlinks
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Anchor_Param as OLEObject, Address_Param as variant, SubAddress_Param as variant, ScreenTip_Param as variant, TextToDisplay_Param as variant, Target_Param as variant) as WordHyperlink
    Function Item(Index_Param as variant) as WordHyperlink
    Function _Add(Anchor_Param as OLEObject, Address_Param as variant, SubAddress_Param as variant) as WordHyperlink
End Class

Class WordHyperlink
inherits OLEObject
    dim Address as string
    dim AddressOld as string
    dim Application as WordApplication
    dim Creator as integer
    dim EmailSubject as string
    dim ExtraInfoRequired as boolean
    dim Name as string
    dim Parent as OLEObject
    dim Range as WordRange
    dim ScreenTip as string
    dim Shape as WordShape
    dim SubAddress as string
    dim SubAddressOld as string
    dim Target as string
    dim TextToDisplay as string
    dim Type as integer
    Sub AddToFavorites()
    Sub CreateNewDocument(FileName_Param as string, EditNow_Param as boolean, Overwrite_Param as boolean)
    Sub Delete()
    Sub Follow(NewWindow_Param as variant, AddHistory_Param as variant, ExtraInfo_Param as variant, Method_Param as variant, HeaderInfo_Param as variant)
End Class

Class WordShapes
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function AddCallout(Type_Param as integer, Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single, Anchor_Param as variant) as WordShape
    Function AddConnector(Type_Param as integer, BeginX_Param as single, BeginY_Param as single, EndX_Param as single, EndY_Param as single) as WordShape
    Function AddCurve(SafeArrayOfPoints_Param as variant, Anchor_Param as variant) as WordShape
    Function AddLabel(Orientation_Param as integer, Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single, Anchor_Param as variant) as WordShape
    Function AddLine(BeginX_Param as single, BeginY_Param as single, EndX_Param as single, EndY_Param as single, Anchor_Param as variant) as WordShape
    Function AddOLEControl(ClassType_Param as variant, Left_Param as variant, Top_Param as variant, Width_Param as variant, Height_Param as variant, Anchor_Param as variant) as WordShape
    Function AddOLEObject(ClassType_Param as variant, FileName_Param as variant, LinkToFile_Param as variant, DisplayAsIcon_Param as variant, IconFileName_Param as variant, IconIndex_Param as variant, IconLabel_Param as variant, Left_Param as variant, Top_Param as variant, Width_Param as variant, Height_Param as variant, Anchor_Param as variant) as WordShape
    Function AddPicture(FileName_Param as string, LinkToFile_Param as variant, SaveWithDocument_Param as variant, Left_Param as variant, Top_Param as variant, Width_Param as variant, Height_Param as variant, Anchor_Param as variant) as WordShape
    Function AddPolyline(SafeArrayOfPoints_Param as variant, Anchor_Param as variant) as WordShape
    Function AddShape(Type_Param as integer, Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single, Anchor_Param as variant) as WordShape
    Function AddTextbox(Orientation_Param as integer, Left_Param as single, Top_Param as single, Width_Param as single, Height_Param as single, Anchor_Param as variant) as WordShape
    Function AddTextEffect(PresetTextEffect_Param as integer, Text_Param as string, FontName_Param as string, FontSize_Param as single, FontBold_Param as integer, FontItalic_Param as integer, Left_Param as single, Top_Param as single, Anchor_Param as variant) as WordShape
    Function BuildFreeform(EditingType_Param as integer, X1_Param as single, Y1_Param as single) as WordFreeformBuilder
    Function Item(Index_Param as variant) as WordShape
    Function Range(Index_Param as variant) as WordShapeRange
    Sub SelectAll()
End Class

Class WordShapeRange
inherits OLEObject
    dim Adjustments as WordAdjustments
    dim AlternativeText as string
    dim Anchor as WordRange
    dim Application as WordApplication
    dim AutoShapeType as integer
    dim Callout as WordCalloutFormat
    dim ConnectionSiteCount as integer
    dim Connector as integer
    dim ConnectorFormat as WordConnectorFormat
    dim Count as integer
    dim Creator as integer
    dim Fill as WordFillFormat
    dim GroupItems as WordGroupShapes
    dim Height as single
    dim HorizontalFlip as integer
    dim Hyperlink as WordHyperlink
    dim Left as single
    dim Line as WordLineFormat
    dim LockAnchor as integer
    dim LockAspectRatio as integer
    dim Name as string
    dim Nodes as WordShapeNodes
    dim Parent as OLEObject
    dim PictureFormat as WordPictureFormat
    dim RelativeHorizontalPosition as integer
    dim RelativeVerticalPosition as integer
    dim Rotation as single
    dim Shadow as WordShadowFormat
    dim TextEffect as WordTextEffectFormat
    dim TextFrame as WordTextFrame
    dim ThreeD as WordThreeDFormat
    dim Top as single
    dim Type as integer
    dim VerticalFlip as integer
    dim Vertices as variant
    dim Visible as integer
    dim Width as single
    dim WrapFormat as WordWrapFormat
    dim ZOrderPosition as integer
    dim _NewEnum as OLEObject
    Sub Activate()
    Sub Align(Align_Param as integer, RelativeTo_Param as integer)
    Sub Apply()
    Function ConvertToFrame() as WordFrame
    Function ConvertToInlineShape() as WordInlineShape
    Sub Delete()
    Sub Distribute(Distribute_Param as integer, RelativeTo_Param as integer)
    Function Duplicate() as WordShapeRange
    Sub Flip(FlipCmd_Param as integer)
    Function Group() as WordShape
    Sub IncrementLeft(Increment_Param as single)
    Sub IncrementRotation(Increment_Param as single)
    Sub IncrementTop(Increment_Param as single)
    Function Item(Index_Param as variant) as WordShape
    Sub PickUp()
    Function Regroup() as WordShape
    Sub RerouteConnections()
    Sub ScaleHeight(Factor_Param as single, RelativeToOriginalSize_Param as integer, Scale_Param as integer)
    Sub ScaleWidth(Factor_Param as single, RelativeToOriginalSize_Param as integer, Scale_Param as integer)
    Sub Select_(Replace_Param as variant)
    Sub SetShapesDefaultProperties()
    Function Ungroup() as WordShapeRange
    Sub ZOrder(ZOrderCmd_Param as integer)
End Class

Class WordGroupShapes
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(Index_Param as variant) as WordShape
End Class

Class WordShape
inherits OLEObject
    dim Adjustments as WordAdjustments
    dim AlternativeText as string
    dim Anchor as WordRange
    dim Application as WordApplication
    dim AutoShapeType as integer
    dim Callout as WordCalloutFormat
    dim ConnectionSiteCount as integer
    dim Connector as integer
    dim ConnectorFormat as WordConnectorFormat
    dim Creator as integer
    dim Fill as WordFillFormat
    dim GroupItems as WordGroupShapes
    dim Height as single
    dim HorizontalFlip as integer
    dim Hyperlink as WordHyperlink
    dim Left as single
    dim Line as WordLineFormat
    dim LinkFormat as WordLinkFormat
    dim LockAnchor as integer
    dim LockAspectRatio as integer
    dim Name as string
    dim Nodes as WordShapeNodes
    dim OLEFormat as WordOLEFormat
    dim Parent as OLEObject
    dim PictureFormat as WordPictureFormat
    dim RelativeHorizontalPosition as integer
    dim RelativeVerticalPosition as integer
    dim Rotation as single
    dim Script as OLEObject
    dim Shadow as WordShadowFormat
    dim TextEffect as WordTextEffectFormat
    dim TextFrame as WordTextFrame
    dim ThreeD as WordThreeDFormat
    dim Top as single
    dim Type as integer
    dim VerticalFlip as integer
    dim Vertices as variant
    dim Visible as integer
    dim Width as single
    dim WrapFormat as WordWrapFormat
    dim ZOrderPosition as integer
    Sub Activate()
    Sub Apply()
    Function ConvertToFrame() as WordFrame
    Function ConvertToInlineShape() as WordInlineShape
    Sub Delete()
    Function Duplicate() as WordShape
    Sub Flip(FlipCmd_Param as integer)
    Sub IncrementLeft(Increment_Param as single)
    Sub IncrementRotation(Increment_Param as single)
    Sub IncrementTop(Increment_Param as single)
    Sub PickUp()
    Sub RerouteConnections()
    Sub ScaleHeight(Factor_Param as single, RelativeToOriginalSize_Param as integer, Scale_Param as integer)
    Sub ScaleWidth(Factor_Param as single, RelativeToOriginalSize_Param as integer, Scale_Param as integer)
    Sub Select_(Replace_Param as variant)
    Sub SetShapesDefaultProperties()
    Function Ungroup() as WordShapeRange
    Sub ZOrder(ZOrderCmd_Param as integer)
End Class

Class WordTextFrame
inherits OLEObject
    dim Application as WordApplication
    dim ContainingRange as WordRange
    dim Creator as integer
    dim HasText as integer
    dim MarginBottom as single
    dim MarginLeft as single
    dim MarginRight as single
    dim MarginTop as single
    dim Next_ as WordTextFrame
    dim Orientation as integer
    dim Overflowing as boolean
    dim Parent as WordShape
    dim Previous as WordTextFrame
    dim TextRange as WordRange
    Sub BreakForwardLink()
    Function ValidLinkTarget(TargetTextFrame_Param as WordTextFrame) as boolean
End Class

Class WordLetterContent
inherits OLEObject
    dim Application as WordApplication
    dim AttentionLine as string
    dim CCList as string
    dim Closing as string
    dim Creator as integer
    dim DateFormat as string
    dim Duplicate as WordLetterContent
    dim EnclosureNumber as integer
    dim IncludeHeaderFooter as boolean
    dim InfoBlock as boolean
    dim Letterhead as boolean
    dim LetterheadLocation as integer
    dim LetterheadSize as single
    dim LetterStyle as integer
    dim MailingInstructions as string
    dim PageDesign as string
    dim Parent as OLEObject
    dim RecipientAddress as string
    dim RecipientCode as string
    dim RecipientGender as integer
    dim RecipientName as string
    dim RecipientReference as string
    dim ReturnAddress as string
    dim ReturnAddressShortForm as string
    dim Salutation as string
    dim SalutationType as integer
    dim SenderCity as string
    dim SenderCode as string
    dim SenderCompany as string
    dim SenderGender as integer
    dim SenderInitials as string
    dim SenderJobTitle as string
    dim SenderName as string
    dim SenderReference as string
    dim Subject as string
End Class

Class WordView
inherits OLEObject
    dim Application as WordApplication
    dim BrowseToWindow as integer
    dim Creator as integer
    dim Draft as boolean
    dim EnlargeFontsLessThan as integer
    dim FieldShading as integer
    dim FullScreen as boolean
    dim Magnifier as boolean
    dim MailMergeDataView as boolean
    dim Parent as OLEObject
    dim SeekView as integer
    dim ShowAll as boolean
    dim ShowAnimation as boolean
    dim ShowBookmarks as boolean
    dim ShowDrawings as boolean
    dim ShowFieldCodes as boolean
    dim ShowFirstLineOnly as boolean
    dim ShowFormat as boolean
    dim ShowHiddenText as boolean
    dim ShowHighlight as boolean
    dim ShowHyphens as boolean
    dim ShowMainTextLayer as boolean
    dim ShowObjectAnchors as boolean
    dim ShowOptionalBreaks as boolean
    dim ShowParagraphs as boolean
    dim ShowPicturePlaceHolders as boolean
    dim ShowSpaces as boolean
    dim ShowTabs as boolean
    dim ShowTextBoundaries as boolean
    dim SplitSpecial as integer
    dim TableGridlines as boolean
    dim Type as integer
    dim WrapToWindow as boolean
    dim Zoom as WordZoom
    Sub CollapseOutline(Range_Param as variant)
    Sub ExpandOutline(Range_Param as variant)
    Sub NextHeaderFooter()
    Sub PreviousHeaderFooter()
    Sub ShowAllHeadings()
    Sub ShowHeading(Level_Param as integer)
End Class

Class WordZoom
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim PageColumns as integer
    dim PageFit as integer
    dim PageRows as integer
    dim Parent as OLEObject
    dim Percentage as integer
End Class

Class WordZooms
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Parent as OLEObject
    Function Item(Index_Param as integer) as WordZoom
End Class

Class WordInlineShape
inherits OLEObject
    dim AlternativeText as string
    dim Application as WordApplication
    dim Borders as WordBorders
    dim Creator as integer
    dim Field as WordField
    dim Fill as WordFillFormat
    dim Height as single
    dim HorizontalLineFormat as WordHorizontalLineFormat
    dim Hyperlink as WordHyperlink
    dim Line as WordLineFormat
    dim LinkFormat as WordLinkFormat
    dim LockAspectRatio as integer
    dim OLEFormat as WordOLEFormat
    dim OWSAnchor as integer
    dim Parent as OLEObject
    dim PictureFormat as WordPictureFormat
    dim Range as WordRange
    dim ScaleHeight as single
    dim ScaleWidth as single
    dim Script as OLEObject
    dim TextEffect as WordTextEffectFormat
    dim Type as integer
    dim Width as single
    Sub Activate()
    Function ConvertToShape() as WordShape
    Sub Delete()
    Sub Reset()
    Sub Select_()
End Class

Class WordInlineShapes
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function AddHorizontalLine(FileName_Param as string, Range_Param as variant) as WordInlineShape
    Function AddHorizontalLineStandard(Range_Param as variant) as WordInlineShape
    Function AddOLEControl(ClassType_Param as variant, Range_Param as variant) as WordInlineShape
    Function AddOLEObject(ClassType_Param as variant, FileName_Param as variant, LinkToFile_Param as variant, DisplayAsIcon_Param as variant, IconFileName_Param as variant, IconIndex_Param as variant, IconLabel_Param as variant, Range_Param as variant) as WordInlineShape
    Function AddPicture(FileName_Param as string, LinkToFile_Param as variant, SaveWithDocument_Param as variant, Range_Param as variant) as WordInlineShape
    Function AddPictureBullet(FileName_Param as string, Range_Param as variant) as WordInlineShape
    Function Item(Index_Param as integer) as WordInlineShape
    Function New_(Range_Param as WordRange) as WordInlineShape
End Class

Class WordSpellingSuggestions
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim SpellingErrorType as integer
    dim _NewEnum as OLEObject
    Function Item(Index_Param as integer) as WordSpellingSuggestion
End Class

Class WordSpellingSuggestion
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Name as string
    dim Parent as OLEObject
End Class

Class WordDictionaries
inherits OLEObject
    dim ActiveCustomDictionary as WordDictionary
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Maximum as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(FileName_Param as string) as WordDictionary
    Sub ClearAll()
    Function Item(Index_Param as variant) as WordDictionary
End Class

Class WordHangulHanjaConversionDictionaries
inherits OLEObject
    dim ActiveCustomDictionary as WordDictionary
    dim Application as WordApplication
    dim BuiltinDictionary as WordDictionary
    dim Count as integer
    dim Creator as integer
    dim Maximum as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(FileName_Param as string) as WordDictionary
    Sub ClearAll()
    Function Item(Index_Param as variant) as WordDictionary
End Class

Class WordDictionary
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim LanguageID as integer
    dim LanguageSpecific as boolean
    dim Name as string
    dim Parent as OLEObject
    dim Path as string
    dim ReadOnly as boolean
    dim Type as integer
    Sub Delete()
End Class

Class WordReadabilityStatistics
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(Index_Param as variant) as WordReadabilityStatistic
End Class

Class WordReadabilityStatistic
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Name as string
    dim Parent as OLEObject
    dim Value as single
End Class

Class WordVersions
inherits OLEObject
    dim Application as WordApplication
    dim AutoVersion as integer
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Item(Index_Param as integer) as WordVersion
    Sub Save(Comment_Param as variant)
End Class

Class WordVersion
inherits OLEObject
    dim Application as WordApplication
    dim Comment as string
    dim Creator as integer
    dim Date as variant
    dim Index as integer
    dim Parent as OLEObject
    dim SavedBy as string
    Sub Delete()
    Function Open() as WordDocument
    Sub OpenOld()
End Class

Class WordOptions
inherits OLEObject
    dim AddBiDirectionalMarksWhenSavingTextFile as boolean
    dim AddControlCharacters as boolean
    dim AddHebDoubleQuote as boolean
    dim AllowAccentedUppercase as boolean
    dim AllowClickAndTypeMouse as boolean
    dim AllowCombinedAuxiliaryForms as boolean
    dim AllowCompoundNounProcessing as boolean
    dim AllowDragAndDrop as boolean
    dim AllowFastSave as boolean
    dim AllowPixelUnits as boolean
    dim AnimateScreenMovements as boolean
    dim Application as WordApplication
    dim ApplyFarEastFontsToAscii as boolean
    dim ArabicMode as integer
    dim ArabicNumeral as integer
    dim AutoFormatApplyBulletedLists as boolean
    dim AutoFormatApplyFirstIndents as boolean
    dim AutoFormatApplyHeadings as boolean
    dim AutoFormatApplyLists as boolean
    dim AutoFormatApplyOtherParas as boolean
    dim AutoFormatAsYouTypeApplyBorders as boolean
    dim AutoFormatAsYouTypeApplyBulletedLists as boolean
    dim AutoFormatAsYouTypeApplyClosings as boolean
    dim AutoFormatAsYouTypeApplyDates as boolean
    dim AutoFormatAsYouTypeApplyFirstIndents as boolean
    dim AutoFormatAsYouTypeApplyHeadings as boolean
    dim AutoFormatAsYouTypeApplyNumberedLists as boolean
    dim AutoFormatAsYouTypeApplyTables as boolean
    dim AutoFormatAsYouTypeAutoLetterWizard as boolean
    dim AutoFormatAsYouTypeDefineStyles as boolean
    dim AutoFormatAsYouTypeDeleteAutoSpaces as boolean
    dim AutoFormatAsYouTypeFormatListItemBeginning as boolean
    dim AutoFormatAsYouTypeInsertClosings as boolean
    dim AutoFormatAsYouTypeInsertOvers as boolean
    dim AutoFormatAsYouTypeMatchParentheses as boolean
    dim AutoFormatAsYouTypeReplaceFarEastDashes as boolean
    dim AutoFormatAsYouTypeReplaceFractions as boolean
    dim AutoFormatAsYouTypeReplaceHyperlinks as boolean
    dim AutoFormatAsYouTypeReplaceOrdinals as boolean
    dim AutoFormatAsYouTypeReplacePlainTextEmphasis as boolean
    dim AutoFormatAsYouTypeReplaceQuotes as boolean
    dim AutoFormatAsYouTypeReplaceSymbols as boolean
    dim AutoFormatDeleteAutoSpaces as boolean
    dim AutoFormatMatchParentheses as boolean
    dim AutoFormatPlainTextWordMail as boolean
    dim AutoFormatPreserveStyles as boolean
    dim AutoFormatReplaceFarEastDashes as boolean
    dim AutoFormatReplaceFractions as boolean
    dim AutoFormatReplaceHyperlinks as boolean
    dim AutoFormatReplaceOrdinals as boolean
    dim AutoFormatReplacePlainTextEmphasis as boolean
    dim AutoFormatReplaceQuotes as boolean
    dim AutoFormatReplaceSymbols as boolean
    dim AutoKeyboardSwitching as boolean
    dim AutoWordSelection as boolean
    dim BackgroundSave as boolean
    dim BlueScreen as boolean
    dim ButtonFieldClicks as integer
    dim CheckGrammarAsYouType as boolean
    dim CheckGrammarWithSpelling as boolean
    dim CheckHangulEndings as boolean
    dim CheckSpellingAsYouType as boolean
    dim ConfirmConversions as boolean
    dim ConvertHighAnsiToFarEast as boolean
    dim CreateBackup as boolean
    dim Creator as integer
    dim CursorMovement as integer
    dim DefaultBorderColor as integer
    dim DefaultBorderColorIndex as integer
    dim DefaultBorderLineStyle as integer
    dim DefaultBorderLineWidth as integer
    dim DefaultHighlightColorIndex as integer
    dim DefaultOpenFormat as integer
    dim DefaultTray as string
    dim DefaultTrayID as integer
    dim DeletedTextColor as integer
    dim DeletedTextMark as integer
    dim DiacriticColorVal as integer
    dim DisplayGridLines as boolean
    dim DocumentViewDirection as integer
    dim EnableHangulHanjaRecentOrdering as boolean
    dim EnableMisusedWordsDictionary as boolean
    dim EnableSound as boolean
    dim EnvelopeFeederInstalled as boolean
    dim GridDistanceHorizontal as single
    dim GridDistanceVertical as single
    dim GridOriginHorizontal as single
    dim GridOriginVertical as single
    dim HangulHanjaFastConversion as boolean
    dim HebrewMode as integer
    dim IgnoreInternetAndFileAddresses as boolean
    dim IgnoreMixedDigits as boolean
    dim IgnoreUppercase as boolean
    dim IMEAutomaticControl as boolean
    dim InlineConversion as boolean
    dim InsertedTextColor as integer
    dim InsertedTextMark as integer
    dim INSKeyForPaste as boolean
    dim InterpretHighAnsi as integer
    dim MapPaperSize as boolean
    dim MatchFuzzyAY as boolean
    dim MatchFuzzyBV as boolean
    dim MatchFuzzyByte as boolean
    dim MatchFuzzyCase as boolean
    dim MatchFuzzyDash as boolean
    dim MatchFuzzyDZ as boolean
    dim MatchFuzzyHF as boolean
    dim MatchFuzzyHiragana as boolean
    dim MatchFuzzyIterationMark as boolean
    dim MatchFuzzyKanji as boolean
    dim MatchFuzzyKiKu as boolean
    dim MatchFuzzyOldKana as boolean
    dim MatchFuzzyProlongedSoundMark as boolean
    dim MatchFuzzyPunctuation as boolean
    dim MatchFuzzySmallKana as boolean
    dim MatchFuzzySpace as boolean
    dim MatchFuzzyTC as boolean
    dim MatchFuzzyZJ as boolean
    dim MeasurementUnit as integer
    dim MonthNames as integer
    dim MultipleWordConversionsMode as integer
    dim OptimizeForWord97byDefault as boolean
    dim Overtype as boolean
    dim Pagination as boolean
    dim Parent as OLEObject
    dim PictureEditor as string
    dim PrintBackground as boolean
    dim PrintComments as boolean
    dim PrintDraft as boolean
    dim PrintDrawingObjects as boolean
    dim PrintEvenPagesInAscendingOrder as boolean
    dim PrintFieldCodes as boolean
    dim PrintHiddenText as boolean
    dim PrintOddPagesInAscendingOrder as boolean
    dim PrintProperties as boolean
    dim PrintReverse as boolean
    dim ReplaceSelection as boolean
    dim RevisedLinesColor as integer
    dim RevisedLinesMark as integer
    dim RevisedPropertiesColor as integer
    dim RevisedPropertiesMark as integer
    dim RTFInClipboard as boolean
    dim SaveInterval as integer
    dim SaveNormalPrompt as boolean
    dim SavePropertiesPrompt as boolean
    dim SendMailAttach as boolean
    dim ShortMenuNames as boolean
    dim ShowControlCharacters as boolean
    dim ShowDiacritics as boolean
    dim ShowReadabilityStatistics as boolean
    dim SmartCutPaste as boolean
    dim SnapToGrid as boolean
    dim SnapToShapes as boolean
    dim StrictFinalYaa as boolean
    dim StrictInitialAlefHamza as boolean
    dim SuggestFromMainDictionaryOnly as boolean
    dim SuggestSpellingCorrections as boolean
    dim TabIndentKey as boolean
    dim UpdateFieldsAtPrint as boolean
    dim UpdateLinksAtOpen as boolean
    dim UpdateLinksAtPrint as boolean
    dim UseCharacterUnit as boolean
    dim UseDiffDiacColor as boolean
    dim UseGermanSpellingReform as boolean
    dim VirusProtection as boolean
    dim VisualSelection as integer
    dim WPDocNavKeys as boolean
    dim WPHelp as boolean
    Function DefaultFilePath(Path_Param as integer) as string
    Sub SetWPHelpOptions(CommandKeyHelp_Param as variant, DocNavigationKeys_Param as variant, MouseSimulation_Param as variant, DemoGuidance_Param as variant, DemoSpeed_Param as variant, HelpType_Param as variant)
End Class

Class WordMailMessage
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Parent as OLEObject
    Sub CheckName()
    Sub Delete()
    Sub DisplayMoveDialog()
    Sub DisplayProperties()
    Sub DisplaySelectNamesDialog()
    Sub Forward()
    Sub GoToNext()
    Sub GoToPrevious()
    Sub Reply()
    Sub ReplyAll()
    Sub ToggleHeader()
End Class

Class WordProofreadingErrors
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim Type as integer
    dim _NewEnum as OLEObject
    Function Item(Index_Param as integer) as WordRange
End Class

Class WordMailer
inherits OLEObject
    dim Application as WordApplication
    dim BCCRecipients as variant
    dim CCRecipients as variant
    dim Creator as integer
    dim Enclosures as variant
    dim Parent as OLEObject
    dim Received as boolean
    dim Recipients as variant
    dim SendDateTime as variant
    dim Sender as string
    dim Subject as string
End Class

Class WordWrapFormat
inherits OLEObject
    dim AllowOverlap as integer
    dim Application as WordApplication
    dim Creator as integer
    dim DistanceBottom as single
    dim DistanceLeft as single
    dim DistanceRight as single
    dim DistanceTop as single
    dim Parent as OLEObject
    dim Side as integer
    dim Type as integer
End Class

Class WordHangulAndAlphabetExceptions
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Name_Param as string) as WordHangulAndAlphabetException
    Function Item(Index_Param as variant) as WordHangulAndAlphabetException
End Class

Class WordHangulAndAlphabetException
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Index as integer
    dim Name as string
    dim Parent as OLEObject
    Sub Delete()
End Class

Class WordAdjustments
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    Function Item(Index_Param as integer) as single
End Class

Class WordCalloutFormat
inherits OLEObject
    dim Accent as integer
    dim Angle as integer
    dim Application as WordApplication
    dim AutoAttach as integer
    dim AutoLength as integer
    dim Border as integer
    dim Creator as integer
    dim Drop as single
    dim DropType as integer
    dim Gap as single
    dim Length as single
    dim Parent as OLEObject
    dim Type as integer
    Sub AutomaticLength()
    Sub CustomDrop(Drop_Param as single)
    Sub CustomLength(Length_Param as single)
    Sub PresetDrop(DropType_Param as integer)
End Class

Class WordColorFormat
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Parent as OLEObject
    dim RGB as integer
    dim SchemeColor as integer
    dim Type as integer
End Class

Class WordConnectorFormat
inherits OLEObject
    dim Application as WordApplication
    dim BeginConnected as integer
    dim BeginConnectedShape as WordShape
    dim BeginConnectionSite as integer
    dim Creator as integer
    dim EndConnected as integer
    dim EndConnectedShape as WordShape
    dim EndConnectionSite as integer
    dim Parent as OLEObject
    dim Type as integer
    Sub BeginConnect(byref ConnectedShape_Param as WordShape, ConnectionSite_Param as integer)
    Sub BeginDisconnect()
    Sub EndConnect(byref ConnectedShape_Param as WordShape, ConnectionSite_Param as integer)
    Sub EndDisconnect()
End Class

Class WordFillFormat
inherits OLEObject
    dim Application as WordApplication
    dim BackColor as WordColorFormat
    dim Creator as integer
    dim ForeColor as WordColorFormat
    dim GradientColorType as integer
    dim GradientDegree as single
    dim GradientStyle as integer
    dim GradientVariant as integer
    dim Parent as OLEObject
    dim Pattern as integer
    dim PresetGradientType as integer
    dim PresetTexture as integer
    dim TextureName as string
    dim TextureType as integer
    dim Transparency as single
    dim Type as integer
    dim Visible as integer
    Sub Background()
    Sub OneColorGradient(Style_Param as integer, Variant_Param as integer, Degree_Param as single)
    Sub Patterned(Pattern_Param as integer)
    Sub PresetGradient(Style_Param as integer, Variant_Param as integer, PresetGradientType_Param as integer)
    Sub PresetTextured(PresetTexture_Param as integer)
    Sub Solid()
    Sub TwoColorGradient(Style_Param as integer, Variant_Param as integer)
    Sub UserPicture(PictureFile_Param as string)
    Sub UserTextured(TextureFile_Param as string)
End Class

Class WordFreeformBuilder
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Parent as OLEObject
    Sub AddNodes(SegmentType_Param as integer, EditingType_Param as integer, X1_Param as single, Y1_Param as single, X2_Param as single, Y2_Param as single, X3_Param as single, Y3_Param as single)
    Function ConvertToShape(Anchor_Param as variant) as WordShape
End Class

Class WordLineFormat
inherits OLEObject
    dim Application as WordApplication
    dim BackColor as WordColorFormat
    dim BeginArrowheadLength as integer
    dim BeginArrowheadStyle as integer
    dim BeginArrowheadWidth as integer
    dim Creator as integer
    dim DashStyle as integer
    dim EndArrowheadLength as integer
    dim EndArrowheadStyle as integer
    dim EndArrowheadWidth as integer
    dim ForeColor as WordColorFormat
    dim Parent as OLEObject
    dim Pattern as integer
    dim Style as integer
    dim Transparency as single
    dim Visible as integer
    dim Weight as single
End Class

Class WordPictureFormat
inherits OLEObject
    dim Application as WordApplication
    dim Brightness as single
    dim ColorType as integer
    dim Contrast as single
    dim Creator as integer
    dim CropBottom as single
    dim CropLeft as single
    dim CropRight as single
    dim CropTop as single
    dim Parent as OLEObject
    dim TransparencyColor as integer
    dim TransparentBackground as integer
    Sub IncrementBrightness(Increment_Param as single)
    Sub IncrementContrast(Increment_Param as single)
End Class

Class WordShadowFormat
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim ForeColor as WordColorFormat
    dim Obscured as integer
    dim OffsetX as single
    dim OffsetY as single
    dim Parent as OLEObject
    dim Transparency as single
    dim Type as integer
    dim Visible as integer
    Sub IncrementOffsetX(Increment_Param as single)
    Sub IncrementOffsetY(Increment_Param as single)
End Class

Class WordShapeNode
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim EditingType as integer
    dim Parent as OLEObject
    dim Points as variant
    dim SegmentType as integer
End Class

Class WordShapeNodes
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Sub Delete(Index_Param as integer)
    Sub Insert(Index_Param as integer, SegmentType_Param as integer, EditingType_Param as integer, X1_Param as single, Y1_Param as single, X2_Param as single, Y2_Param as single, X3_Param as single, Y3_Param as single)
    Function Item(Index_Param as variant) as WordShapeNode
    Sub SetEditingType(Index_Param as integer, EditingType_Param as integer)
    Sub SetPosition(Index_Param as integer, X1_Param as single, Y1_Param as single)
    Sub SetSegmentType(Index_Param as integer, SegmentType_Param as integer)
End Class

Class WordTextEffectFormat
inherits OLEObject
    dim Alignment as integer
    dim Application as WordApplication
    dim Creator as integer
    dim FontBold as integer
    dim FontItalic as integer
    dim FontName as string
    dim FontSize as single
    dim KernedPairs as integer
    dim NormalizedHeight as integer
    dim Parent as OLEObject
    dim PresetShape as integer
    dim PresetTextEffect as integer
    dim RotatedChars as integer
    dim Text as string
    dim Tracking as single
    Sub ToggleVerticalText()
End Class

Class WordThreeDFormat
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Depth as single
    dim ExtrusionColor as WordColorFormat
    dim ExtrusionColorType as integer
    dim Parent as OLEObject
    dim Perspective as integer
    dim PresetExtrusionDirection as integer
    dim PresetLightingDirection as integer
    dim PresetLightingSoftness as integer
    dim PresetMaterial as integer
    dim PresetThreeDFormat as integer
    dim RotationX as single
    dim RotationY as single
    dim Visible as integer
    Sub IncrementRotationX(Increment_Param as single)
    Sub IncrementRotationY(Increment_Param as single)
    Sub ResetRotation()
    Sub SetExtrusionDirection(PresetExtrusionDirection_Param as integer)
    Sub SetThreeDFormat(PresetThreeDFormat_Param as integer)
End Class

Class WordIApplicationEvents
inherits OLEObject
    Sub DocumentChange()
    Sub Quit()
    Sub Startup()
End Class

Class WordIApplicationEvents2
inherits OLEObject
    Sub DocumentBeforeClose(Doc_Param as WordDocument, Cancel_Param as boolean)
    Sub DocumentBeforePrint(Doc_Param as WordDocument, Cancel_Param as boolean)
    Sub DocumentBeforeSave(Doc_Param as WordDocument, SaveAsUI_Param as boolean, Cancel_Param as boolean)
    Sub DocumentChange()
    Sub DocumentOpen(Doc_Param as WordDocument)
    Sub NewDocument(Doc_Param as WordDocument)
    Sub Quit()
    Sub Startup()
    Sub WindowActivate(Doc_Param as WordDocument, Wn_Param as WordWindow)
    Sub WindowBeforeDoubleClick(Sel_Param as WordSelection, Cancel_Param as boolean)
    Sub WindowBeforeRightClick(Sel_Param as WordSelection, Cancel_Param as boolean)
    Sub WindowDeactivate(Doc_Param as WordDocument, Wn_Param as WordWindow)
    Sub WindowSelectionChange(Sel_Param as WordSelection)
End Class

Class WordEmailAuthor
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Parent as OLEObject
    dim Style as WordStyle
End Class

Class WordEmailOptions
inherits OLEObject
    dim Application as WordApplication
    dim ComposeStyle as WordStyle
    dim Creator as integer
    dim EmailSignature as WordEmailSignature
    dim MarkComments as boolean
    dim MarkCommentsWith as string
    dim Parent as OLEObject
    dim ReplyStyle as WordStyle
    dim ThemeName as string
    dim UseThemeStyle as boolean
End Class

Class WordEmailSignature
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim NewMessageSignature as string
    dim Parent as OLEObject
    dim ReplyMessageSignature as string
End Class

Class WordEmail
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim CurrentEmailAuthor as WordEmailAuthor
    dim Parent as OLEObject
End Class

Class WordHorizontalLineFormat
inherits OLEObject
    dim Alignment as integer
    dim Application as WordApplication
    dim Creator as integer
    dim NoShade as boolean
    dim Parent as OLEObject
    dim PercentWidth as single
    dim WidthType as integer
End Class

Class WordFrameset
inherits OLEObject
    dim Application as WordApplication
    dim ChildFramesetCount as integer
    dim Creator as integer
    dim FrameDefaultURL as string
    dim FrameDisplayBorders as boolean
    dim FrameLinkToFile as boolean
    dim FrameName as string
    dim FrameResizable as boolean
    dim FrameScrollbarType as integer
    dim FramesetBorderColor as integer
    dim FramesetBorderWidth as single
    dim Height as integer
    dim HeightType as integer
    dim Parent as OLEObject
    dim ParentFrameset as WordFrameset
    dim Type as integer
    dim Width as integer
    dim WidthType as integer
    dim _NewEnum as OLEObject
    Function AddNewFrame(Where_Param as integer) as WordFrameset
    Function ChildFramesetItem(Index_Param as integer) as WordFrameset
    Sub Delete()
End Class

Class WordDefaultWebOptions
inherits OLEObject
    dim AllowPNG as boolean
    dim AlwaysSaveInDefaultEncoding as boolean
    dim Application as WordApplication
    dim BrowserLevel as integer
    dim CheckIfOfficeIsHTMLEditor as boolean
    dim CheckIfWordIsDefaultHTMLEditor as boolean
    dim Creator as integer
    dim Encoding as integer
    dim FolderSuffix as string
    dim Fonts as OLEObject
    dim OptimizeForBrowser as boolean
    dim OrganizeInFolder as boolean
    dim Parent as OLEObject
    dim PixelsPerInch as integer
    dim RelyOnCSS as boolean
    dim RelyOnVML as boolean
    dim ScreenSize as integer
    dim UpdateLinksOnSave as boolean
    dim UseLongFileNames as boolean
End Class

Class WordWebOptions
inherits OLEObject
    dim AllowPNG as boolean
    dim Application as WordApplication
    dim BrowserLevel as integer
    dim Creator as integer
    dim Encoding as integer
    dim FolderSuffix as string
    dim OptimizeForBrowser as boolean
    dim OrganizeInFolder as boolean
    dim Parent as OLEObject
    dim PixelsPerInch as integer
    dim RelyOnCSS as boolean
    dim RelyOnVML as boolean
    dim ScreenSize as integer
    dim UseLongFileNames as boolean
    Sub UseDefaultFolderSuffix()
End Class

Class WordOtherCorrectionsExceptions
inherits OLEObject
    dim Application as WordApplication
    dim Count as integer
    dim Creator as integer
    dim Parent as OLEObject
    dim _NewEnum as OLEObject
    Function Add(Name_Param as string) as WordOtherCorrectionsException
    Function Item(Index_Param as variant) as WordOtherCorrectionsException
End Class

Class WordOtherCorrectionsException
inherits OLEObject
    dim Application as WordApplication
    dim Creator as integer
    dim Index as integer
    dim Name as string
    dim Parent as OLEObject
    Sub Delete()
End Class

